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LECTEURS, 

N'USEZ PAS VOS 
DOIGTS! 



Retrouvez sur cette disquette, 
tous les listings de ce numéro. 

Prix 120 F (port compris) 

“bon dê"commande" 

Disquette "Spécial Listings" 

Je commande la disquette Q H-S n°6 Q H-S n“7 
au prix de 120 F pièce. 

Règlement (chèque bancaire, postal ou mandat) à adresser à: 
AM-MAG, a»rKedÿûsan,5/7,nje de IAmèal Courbet 
94160 SAINT-MANDE 

Nom :. 

Prénom :. 

Adresse :. 


AM-MAG est une publication strictement indépendante de la société Amstrad. 



























ous vous félici- 

f tons d'être de 
plus en plus 
nombreux à 
nous communi¬ 
quer des pro¬ 
grammes réalisés partielle¬ 
ment ou totalement en langage 
machine. Les avantages de ce 
type de programmation ne sont 
plus à démontrer, ainsi que 
l'exceptionnelle qualité de la 
plupart des créations. Malheu¬ 
reusement. la saisie par le lec¬ 
teur d une foule considérable 


de codes machines n est pas 
une partie de plaisir. AMSAISIE 
a donc été créé dans le but 
louable de vous faire profiter de 
quelques petites merveilles, en 
vous évitant un maximum de 


contraintes. 

Il doit être conservé précieuse¬ 
ment et utilisé chaque fois que 
vous découvrirez dans nos 
colonnes, un listing de codes 
machines au format approprié. 


Exemple : 


entrez la somme de contrôle 
correspondant à la ligne sai¬ 
sie. En l'absence d'erreur, 
I adresse suivante s affiche, 
etc. Dans le cas contraire, un 
signal sonore retentit et le 
message ERREUR ! ' vous 
signale une bévue Pas de 
panique, puisque l'adresse 
de la ligne litigieuse se réaf¬ 
fiche. Il suffit donc de retaper 
cette dernière. De plus, 
sachez qu 'en cours de sai¬ 
sie. la touche DEL est 
opérationnelle. 

Maintenant, comment sauve¬ 
garder sur disquette (ou cas¬ 
sette) le langage machine 
aussi facilement entré en 
mémoire ? Tout simplement 
par la commande 'S', qui 
vous réclamera préalable¬ 
ment le nom du programme 
à sauver. Toutefois, deux 
solutions s'offrent à vous. 
— Vous êtes fou : et venez 
de saisir en une seule fois, la 
totalité' des codes hexadé- 



AÂ # cimaux (ouf !). Pas de pro- 

Mode d'emploi blême, appuyez sur S' et 

votre programme se trouvera 
Après lancement, spécifiez entièrement sauvegardé, 
en hexadécimal (sans le pré- après l'entrée du nom de 
fixe & ') l 'adresse de début fichier et l'appui sur 

d'implantation du L.M Celle- .< RETURN > 

ci s 'affiche, suivie de ' et — Vous êtes raisonnable et 

d'un curseur clignotant. désirez morceler votre sai- 

Entrez la série de huit codes. sie. Au moment de stoper 

sans vous préoccuper des momentanément votre ou- 

espaces et sans validez par vrage pour le poursuivre ulté- 

RETURN(tout cela se réalise rieurement. appuyez sur S' 

automatiquement). En fin de et attribuez un numéro 

ligne et à T affichage de d'ordre à votre nom de 


fichier (exemple PENDU U DU3 #•:> Fmtttmtnt char- 
A la fin de la sauvegarde. gezâ tÊamaatomtm *&*ers 
l'adresse suivante s'affiche. (n o ut à mr cm te êéEktORY 
notez-la. Cette adresse sera et tttactuez une 

T adresse de début' qu’il ■iiupPiH tomte et défini- 
conviendra de spécifier lors trve. par ta com man de mdi- 
de la reprise de votre travail quée dans te mode a emploi 

(PENDÙ2). Créez de la sorte. du programme iexempte 
une suite de fichiers binaires SA VE PENDU BiN b &8D- 

(PENDU 1. PE N DU2, ' PE N- DO. &1QAC Entant wj • 

10 ' * AMSAISIE par Denis JARRIL • (16603 

20 MEMORY ?<2000s DIM 0*U8)îM0DE 1 : B ( 1 7671 3 
ORDER 0:INK 0,OxINK 1,13x CLSx PRINTx 
PRINT" I pour changer l'adresse cou 
rante”:PRINT" S pour sauver les don 
nees":PRINT" Tapez les caractères s 
ans espace ni return (tout se T 

ait automatiquement). M :PRINT 
30 PRINT:INPUT" ADRESSE DE DEPART : (41103 
",A*:D*=AI:IF A*="" THEN 30 
40 A=VAL("&"+A$) C12733 

50 I=0:AI=HEXI(A,4):PRINT:PRINT AI; (32003 
" : “ ; : C=VAL ("le"+LEFTI <Al,2))+VAL <"&" 

+RIGHTI (Al,2) ) 

60 Tl="":WHILE Tl="":CALL &BB8A:TI= (34543 
INKEYI:CALL &BB8D:WEND:TI=UPPERI(Tl 

) 

70 IF TI = " I " THEN CLSsRUN (11323 

80 IF TK>*S" THEN 110 ELSE D=VAL<" (33183 
+ DI): IF D>0 AND A<0 THEN A=A+6553 

6 

90 PR I NT : PR I NT sINPUT" NOM : ",NI:I (33943 
F NI < > " " THEN SAVE NI,B,D,A-D+l 
100 GOTO 50 (3843 

110 IF TIOCHRK127) THEN 130 ELSE (74053 
IF 1=0 THEN 60 ELSE 1=1-1sPRINT CHR 
1(8 )}" ";CHR*(8)}: IF I/2<)R0UND<1/2 
) THEN PRINT CHR J (8) ; " ,, ;CHR$(8); 

120 GOTO 60 (3903 

130 IF T $ <"0" OR T $ >"F" THEN SOUND (26933 
7,150,20:GOTO 60 

140 IF TI<"A" AND T*>"9" THEN SOUND (26323 
7,150,20:GOTO 60 

150 PRINT Tl; : IF 1 = 15 THEN PRINT”:" (32783 
j ELSE IF I/2OR0UNDU/2) THEN PRIN 
T” 

160 0$(I)=T$ (5923 

170 1 = 1 + 1: IF I<18 THEN 60 ( 13243 

180 FOR 1=0 T0 15 STEP 2: X = VAL C!<" + (44503 
OKI)+01(1 + 1) > :P0KE A, X : A=A +1 : C = C + X 
: NEXT: C = C AND !«FF 

190 IF C = VAL("Î«"+0$(I)+0$(I + 1) ) THE (24263 
N 50 
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Boxe 



esoin impérieux de 
se défouler ou dif¬ 
férent à régler, 
comment s'expri¬ 
mer sans risque 


par la finesse de cet art subtil 
et délicat? Mais par le biais de 
l'informatique bien sûr. Ce 
logiciel de B.A.O (Baston Assis¬ 
tée par Ordinateur), s'humilie 


jusqu'à pousser des cris de 
douleurs déchirants, si agréa¬ 
bles à l'oreille de l'adversaire. 
Boxe se pratique à deux belli¬ 
gérants, l'un disposant du joys¬ 


tick et l'autre des touches 
directionnelles + Copy. Neuf 
coups encaissés débouchent 
sur un superbe KO. 



Sauvegarde 

Sauvegardez le court listing 
Basic sous le nom évident de 
« BOXE » puis entrez et sauve¬ 
gardez par Amsaisie (reportez- 
vous à son mode d’emploi) les 
gu aire listings de codes 
hexadécimaux. 


Adresse 
de début 

nom de 
sauvegarde 

longueur 

&4100 
&4400 
&5000 
&5700 

BOXE.CR1 

BOXE.BIN 

BOXE.GRA 

BOXE.CR2 

&200 
i393 
il 80 


La longueur est précisée à 
l'attention de ceux qui. pour 
chaque listing hexadécimal, 
désirent morceler la saisie en 
créant plusieurs fichiers ulté¬ 
rieurement chargés à la suite 
après un MEMORY t*OFf et 
sauvés par la commande: 
SAVE « nom de fichier »,b, 
adresse de début, longueur. 

Jac Potet 


10 MODE 1 : INK 0,14:B0RDER 14:INK 1, C34233 
OlINK 3,16:INK 2,25 

20 MEMORY 13FFF:LOAD "boxe, cr 1“,141 [50831 
OOiLOAD "boxe. bin“,4<4400: LOflD "boxe 
.gra”,15000iLOflD “boxe.cr2“,15700 
30 P0KE 14F00,10*P0KE 14F10,lOiP0KE [21701 
14F01,75iP0KE 14F11.4 
40 MODE 1 [5011 


50 PLOT 21,344,2:DRAM 138,344|DRAW [32431 

138,21: DRAW 21,21iDRAU 21,344 
10 CALL 1445D [7211 

15 CALL 1BB00 [3991 

70 L0CATE 7,25:INPUT "Une autre par [27111 
tie (0/N) ?",al 

80 IF UPPER*(a*)="N"THEN END ELBE 6 [24951 
0T0 30 


4118:80 FE 07 F8 03 F0 1F COiAB 
4120:3F C0 F0 3F 03 FF 07 E0:78 
4128:00 FB 1F CO 3F 00 07 E0:ii 


4100:FF FF FF FF FF FF FF FF:39 
4108:FF FF FF FF FF FF FF FF:41 
4110:FF FF FB 3F 80 FF F8 1F:IC 


4130:7F 03 FC 00 FC 0F E0 7F:59 
4138:00 7E 03 FO IF CO 7F 03:4B 
4I40:F0 1F CO 7E 07 FO 3F 81:85 
























Boxe 


4148s F 8 

1F 

CO 

FC 

OF 

CO 

7F 

07 s B1 

41E 0 1 CO 

OF 

CO 

7E 

00 

7E 

07 

FO: A3 

4278:01 

FF 

00 

FC 

07 

FC 

03 

FO» AC 

4150» E0 

7E 

03 

F 8 

1E 

03 

EO 

3Fî 2A 

41E8:07 

FO 

3F 

00 

1F 

80 

FC 

00: FA 

4280»1F 

EO 

OF 

CO 

3F 

80 

3F 

80» OE 

4158:81 

EO 

7E 

03 

F 8 

3C 

OF 

80: 3E 

41F0iFC 

07 

EO 

07 

EO 

7F 

00 

1F» 99 

4288» FE 

00 

FE 

03 

FC 

01 

F 8 

OF : CD 

4160:FE 

OF 

03 

FO 

3F 

81 

EO 

F 8 s 39 

41F8: 81 

FC 

00 

F 8 

OF 

CO 

OF 

CO : 4C 

4290» FO 

07 

FO 

1F 

FO 

OF 

EO 

3F»F6 

4168:1F 

FF 

Cl 

F 8 

1F 

FF 

03 

FOi 91 

4200:7E 

00 

7E 

03 

FO 

03 

FO 

3F : 63 

4298:EO 

1F 

CO 

7F 

CO 

3F 

80 

FF : 96 

4170:1F 

CO 

OF 

CO 

FE 

00 

1F 

81 :FD 

4208:80 

1F 

80 

FC 

00 

FE 

07 

EO: 4A 

42A0» 80 

3F 

00 

FF 

00 

7F 

00 

FF» 1E 

4178:FF 

FO 

3F 

03 

FE 

00 

FC 

07 : EB 

4210:03 

FO 

3F 

00 

1F 

80 

FC 

00» 1F 

42A8» 00 

7F 

00 

FF 

00 

3 F 

80 

FF » 26 

4180:FF 

81 

F 8 

OF 

FC 

07 

EO 

7F» AA 

4218:FC 

OF 

EO 

07 

EO 

3F 

00 

3F: AA 

4 2 B 0 : 80 

3F 

80 

7F 

80 

1F 

CO 

3F»4E 

4188:FC 

OF 

CO 

FF 

EO 

3E 

03 

FF : B3 

4220:01 

F 8 

00 

FB 

OF 

CO 

OF 

CO» Fl . 

42B8:CO 

03 

F 8 

03 

FF 

80 

FF 

00:36 

4190:EO 

FC 

OF 

FF 

03 

FO 

1F 

80: 4D 

4228:FE 

00 

7E 

07 

FO 

03 

FO 

3F » OF 

42C0» FF 

00 

1F 

CO 

1F 

FE 

03 

FE» FE 

4198:0F 

CO 

FE 

00 

3F 

03 

FO 

0 0 : D 8 

4230:80 

1F 

81 

F 8 

00 

FC 

OF 

CO» 55 

42C8:01 

FF 

CO 

1F 

EO 

1F 

FF 

80:67 

41 AO:FC 

OF 

EO 

03 

FO 

3F 

00 

OFiOD 

4238:0F 

EO 

7E 

00 

3F 

03 

FO 

01» IA 

42D0:FF 

80 

7F 

FE 

03 

FE 

00 

FF» OE 

41A8:CO 

FE 

00 

1F 

01 

F 8 

00 

FC: BB 

4240:F8 

1F 

80 

OF 

CO 

FE 

00 

7E » 64 

42D8» FO 

07 

FC 

01 

FF 

80 

07 

FF » 93 

41B 0 s 0 F 

CO 

03 

FO 

3F 

00 

1F 

01 s 12 

4248:07 

FO 

03 

FO 

1F 

80 

OF 

CO: E2 

42E0» 00 

7F 

FF 

80 

7F 

EO 

OF 

FF: 8 D 

4 1 B 8 : F 8 

00 

FC 

OF 

CO 

07 

EO 

7E : 21 

4250:FE 

00 

7F 

03 

FO 

01 

F 8 

1 F» IA 

42E8: FO 

07 

FC 

00 

7F 

EO 

00 

FF i 7B 

4 ICO:00 

3F 

03 

FO 

03 

FO 

1F 

80: C5 

4258:CO 

07 

EO 

7E 

00 

3F 

01 

F8»F7 

42F0» EO 

03 

FF 

FO 

00 

FF 

CO 

07 » CA 

41C8:OF 

80 

FC 

00 

FC 

OF 

CO 

07:66 

4260i00 

FC 

OF 

EO 

07 

EO 

3F 

80:33 

42F8» FF 

80 

00 

FF 

CO 

00 

FF 

FF» 76 

41 DO:CO 

7E 

00 

7E 

07 

EO 

03 

FO: A7 

4268:1F 

80 

FF 

CO 

7E 

03 

FC 

01:86 

4300:00 

00 

00 

00 

00 

00 

00 

00)43 

41D8:3F 

00 

3F 

81 

F 8 

01 

F 8 

OF: 18 

4270» F 8 

1F 

FO 

OF 

CO 

7F 

80 

3F»C6 










4400» ES 

6 C 

26 

00 

11 

00 

CO 

19: A5 

4538:22 

05 

4F 

22 

05 

4F 

2 A 

10: A3 

4670)2C 

2C 

CD 

00 

44 

11 

00 

53:83 

4408:EB 

El 

D5 

45 

21 

00 

00 

11:64 

4540» 4F 

E5 

3E 

48 

CD 

1E 

BB 

El :C 6 

4678)CD 

18 

44 

El 

E 5 

CD 

00 

44) BE 

4410:50 

00 

19 

10 

FD 

DI 

19 

C9»7D 

4548:28 

09 

7D 

FE 

04 

28 

04 

2D: 96 

4680)11 

CO 

50 

CD 

18 

44 

El 

Cl i B2 

4418:01 

4C 

08 

AF 

ED 

42 

06 

02»97 

4550)22 

15 

4F 

E5 

3E 

49 

CD 

1 E » 72 

4688:E5 

CS 

2C 

2C 

2C 

2C 

CD 

00) F5 

4420» C5 

01 

50 

00 

09 

E5 

06 

08)76 

4558» BB 

El 

28 

09 

7D 

FE 

11 

28:1E 

4690*44 

11 

40 

51 

CD 

18 

44 

CD: B2 

4428:C5 

01 

FC 

07 

09 

EB 

01 

04 » 2E 

4560(04 

2C 

22 

15 

4F 

E5 

3E 

4B:C9 

4698»19 

BD 

CD 

19 

BD 

CD 

19 

BDiFA 

4430» 00 

ED 

BO 

EB 

Cl 

10 

Fl 

El » 9F 

4568:CD 

1E 

BB 

El 

28 

10 

3A 

06) AC 

46AOiC1 

CD 

OA 

47 

El 

E5 

CD 

00)58 

4438t Cl 

10 

E5 

C9 

E5 

D5 

CD 

00 » 82 

4570» 4F 

47 

7C 

05 

05 

05 

05 

B 8 : 93 

46A8)44 

11 

00 

53 

CD 

18 

44 

E1 : AO 

4440» 44 

DI 

CD 

18 

44 

El 

2C 

2C» FB 

4578)28 

04 

24 

22 

15 

4F 

E5 

3E î B 6 

4 6 B 0: 2 C 

2C 

2C 

2C 

CD 

00 

44 

1 1 :C 8 

4448:E5 

D5 

CD 

00 

44 

DI 

CD 

1 B: 0 D 

4580» 4A 

CD 

1E 

BB 

El 

28 

09 

7C: 43 

46B8:00 

53 

CD 

18 

44 

C9 

3E 

071 88 

4450)44 

El 

2C 

2C 

D5 

CD 

00 

44 : F7 

4588)FE 

04 

28 

04 

25 

22 

15 

4F: A 6 

4 6 C 0 : B 8 

C 8 

2A 

00 

4F 

7D 

2A 

10s B 6 

4458s DI 

CD 

18 

44 

C9 

2A 

00 

4F:D8 

4590)22 

15 

4F 

3E 

42 

CD 

1E 

BB: 81 

46C8)4F 

2D 

2D 

BD 

20 

02 

06 

OA) A 6 

4460ill 

00 

50 

CD 

3C 

44 

11 

CO s 23 

4598» CO 

CD 

19 

BD 

2A 

00 

4F 

11 : CA 

4 6 D 0 » 2 A 

10 

4F 

2C 

2C 

BD 

20 

02* D 6 

4468)50 

2A 

10 

4F 

CD 

3C 

44 

AF » 81 

45A0:00 

53 

CD 

3C 

44 

2A 

05 

4Fi 03 

4608)06 

OA 

3E 

OA 

B 8 

CO 

06 

00» F4 

4470)32 

04 

4F 

32 

14 

4F 

26 

05» F9 

45A8» 22 

00 

4F 

11 

00 

50 

CD 

3C:C8 

46E0)3A 

04 

4F 

3C 

32 

04 

4F 

21)95 
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02 

CD 

75 
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CD 
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BB 
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14 

4F 

C6:2E 

45C0)22 

10 

4F 

11 

CO 

50 

CD 

3Cs BO 

46F8»11 

00 

53 

CD 

3C 

44 

2A 

10)29 

4490:30 

CD 

SA 

BB 

3 A 

04 

4F 

FE» 71 

45C8:44 

C3 

76 

44 

2A 

00 

4F 

3A: 81 

4700:4F 

25 

25 

22 

10 

4F 

22 

15:98 

4498:09 

C 8 

3A 

14 

4F 

FE 

09 

C 8 : 19 

45D0:11 

4F 

06 

00 

C 6 

04 

BC 

C8:C9 

4708)4F 

C9 

3E 

07 

B 8 

C 8 

2A 

10:66 

44A0» 3A 

08 

4F 

FE 

00 

20 

10 

3E» El 

45D8:25 

04 

4F 

3E 

07 

B 8 

79 

28:33 

4710» 4F 

7D 

2A 

00 

4F 

2D 

2D 

BD:B3 

44A8:4C 

CD 

1E 

BB 

OE 

00 

28 

OF » 23 

4 5 E 0 : 03 

BC 

20 

F4 

C5 

E5 

2A 

OOiCC 

4718)20 

02 

06 

OA 

2A 

00 

4F 

2C:36 

44B0» OE 

01 

3E 

20 

32 

08 

4F 

3A» 24 

45E8:4F 

E5 

CD 

00 

44 

11 

00 

53: D 6 

4720»2C 

BD 

20 

02 

06 

OA 

3E 

OA : CA 

4498:08 

4F 

C 6 

20 

32 

08 

4F 

C5» 87 

45F0» CD 

18 

44 

El 

2C 

2C 

2C 

2Ci EF 

4728:B8 

CO 

06 

00 

3 A 

14 

4F 

3C:C6 

44C0:3A 

09 

4F 

FE 

00 

20 

OF 

3E» 01 

45F8:CD 

00 

44 

11 

00 

53 

CD 

18:97 

4730)32 

14 

4F 

21 

01 

57 

CD 

56: A 8 

44C8» 09 

CD 

1E 

BB 

28 

10 

3E 

20s 51 

4600:44 

El 

E5 

CD 

00 

44 

11 

00)72 

4738:47 

2A 

00 

4F 

3E 

4B 

BC 

C 8 : 4C 

44D0:32 

09 

4F 

CD 

CC 

45 

3A 

09 : BF 

4608:50 

CD 

18 

44 

El 

Cl 

E5 

C5: 13 

4740125 

BC 

C 8 

24 

11 

00 

53 

CD: 85 

44D 8 * 4F 

C 6 

20 

32 

09 

4F 

Cl 
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AUTEURS 

Nous attendons 
nos réalisations! 

Comment procéder? Vous êtes 
auteur d’un programme et vous 
souhaitez le voir être publié. Il vous 
suffit de nous envoyer vos créa¬ 
tions (originales) sur support cas¬ 
sette ou disquette, accompagnées 
d’un mode d’emploi du logiciel, 
d'une liste de variables et du bon, 
cl-dessous, dûment complété. Tou¬ 
tes les propositions seront 
examinées. 

U,* y Tocs nos listings paras sont rémunérés I 

neiiAunr ne bamitiau 
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avidité des aven¬ 
turiers témérai¬ 
res, n'a d'égale 
que la cruauté 
implacable des 
monstres peuplant les sanc¬ 
tuaires maudits censés renfer¬ 
mer de fabuleux trésors. Ce jeu 


dramatique à souhait, nous en 
fait, une fois de plus, la brillante 
démonstration. 


Sauvegarde 

Sauvez le programme principal 


(règles incluses) sous un nom 
de votre choix (pourquoi pas 
« YROX » ?), puis entrez les 
codes hexadécimaux du 
deuxième listing par le pro¬ 
gramme Amsaisie (reportez- 
vous à son mode d'emploi). 
Spécifiez 9C40 comme 


adresse de début et sauvez le 
langage machine par l'option 
« S » sous le nom « RSX ». 


Fabien Gaudin 
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’#*###***#*#****#####**«## 

[8941 

20 

' * 



* 

[1751 

30 

' # 

* Y R 0 

X * 

# 

[6311 

40 

' # 



# 

[1731 

50 

' * 

par Fabien 

GAUDIN 

« 

C6131 

60 

' # 



t 

[1751 

70 


[8941 


80 BORDER OlHODE 1 s INK 0,0 C14471 

90 INK 1,24:INK 2,11 : INK 3,6,3iPEN C77B43 

1iLOCATE 18,2)PRINT'YROX’iPEN 2iPL0 

T 260,360,SiDRAWR 90,0iDRAWR 0,30:D 

RfiWR -90 ,OjDRAWR 0,-30iPEN 2 

100 PRINTlPRINT“Dans ce jeu vous de C112813 

vez aidez un bonhommea prendre dans 


8 
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chaque tableau 3 cadeaux pour pouv 
oir accéder au tableau suivant." 

110 PRINT“Faci1e, seulement des mon C97223 
stres vont vousPoursuivre, ils ser 
ont de plus en plusnombreux ! " 

120 PRINT:PRINT"Pour déplacer vot C172321 
re héros, utilisez les touches 
1lechees.":PRINT'Z et X permettent 
de percer des trous aux etages (t 
res utile !).”!PRlNT"Faites la pause 
par 1 a touche P.” 

130 PRINTiPR INT"Bonne chance !" 129251 

140 LOCflTE 20,24 1 PEN 3iPRINT“ appuy 176733- 
ez sur une touche pour continuer”:!; 

ALL IBB18:CLS 

150 salle=0 14833 

160 IF PEEKI40000)>0 THEN 520 112293 

170 SYMBOL AFTER 47 113013 

180 L0AD"!rsx.bin",40000:CALL 40000 120173 
190 SYMBOL 200,126,66,126,66,126,66 120573 
,126,66 

200 SYMBOL 201,239,239,239,0,254,25 116313 
4,254,0 


210 SYMBOL 
77,66,64 
220 SYMBOL 
8,77,66 
230 SYMBOL 
240 SYMBOL 
250 SYMBOL 
2 

260 SYMBOL 
6,46 

270 SYMBOL 
12,130 
280 SYMBOL 
9 

290 SYMBOL 
30 

300 SYMBOL 
127,30 
310 SYMBOL 
7,31,14 
320 SYMBOL 
,254,120 
330 SYMBOL 
,248,112 
340 SYMBOL 
350 SYMBOL 

198.108.56 
360 SYMBOL 

214.124.56 
370 SYMBOL 
4,140 

380 SYMBOL 

34.24 

390 SYMBOL 

111.24 

400 SYMBOL 
30,49 

410 SYMBOL 
0,10 

420 SYMBOL 
90,80 

430 SYMBOL 
,48 

440 SYMBOL 


202,119,119,149,137,138, 116143 
203,236,236,236,0,254,13 122303 

204.138.77.66.1 117453 
205,0,0,8,36,60,60,60,60 119663 

206.6.4.14.12.12.60.36.1 118193 

207,96,32,112,48,48,60,3 128413 
208,96,32,124,93,138,0,1 125913 
209,6,4,63,93,0,14,65,12 116243 

210.6.4.63.93.64.14.65.1 116713 

211,4B,44,124,174,7,175, 117933 

212,48,44,124,246,175,12 129533 

213,12,52,62,117,224,245 121123 

214,12,52,62,111,245,254 130583 

215,8,8,62,8,8,28,62,62 115153 

216,124,186,198,130,130, 123093 

217,124,186,254,238,170, 123783 

218,12,27,28,63,56,60,10 123233 

219.12.27.31.60.56.124.2 122653 
220,48,216,248,60,28,62, 121313 
221,48,216,56,252,28,60, 121683 
222,24,60,24,62,60,126,9 126133 
223,24,60,24,124,60,126, 122323 
224,12,30,61,63,54,20,26 122103 
225,12,30,61,62,55,44,40 123523 


,112 

450 SYMBOL 226,48,120,188,252,108,4 122593 
4,88,12 

460 SYMBOL 227,120,188,124,236,52,2 117033 
0,14 

470 SYMBOL 228,128,192,224,176,120, 126023 
172,94,43 

480 SYMBOL 229,1,3,6,16,26,53,122,2 120873 

36 

490 SYMBOL 230,216,245,232,244,216, 128063 
245,232,212 

500 SYMBOL 231,27,47,21,175,27,47,2 127933 
3,171 

510 SYMBOL 232,255,255,187,85,170,0 116733 


,170,85 

520 DEFINT a-z:vie=3:trou=200 114293 
530 DIM CASE 137,19) :pi:--l:z=32 110263 
540 WIND0HK1,1,40,1,25 115553 
550 sal1e=sal1e+1 16263 


560 ON salle GOSUB 570,580,590,600, 11677] 
610,620,620:GOTO 630 

570 INK 1,9:INK 2,15:INK 3,14:RETUR 130463 
N 

580 INK 1,24:INK 2,16:INK 3,11:RETU 127783 
RN 

590 INK 1,6:INK 2,24:INK 3,14:RETUR 131383 
N 

600 INK 1,2:INK 2,19:INK 3,13:RETUR 17513 
N 

610 INK 1,5:INK 2,12:INK 3,8:RETURH 123523 
620 INK 1,10:INK 2,6:INK 3,18:RETUR 119673 
N 

630 LOCATE#1,20,24:PRINT#1," ” 134263 

:GOSUB 650:GOSUB 760 

640 GOTO 1070 13173 

650 GRAPHICS PAPER 0:PL0T 1,1,1,0:M 139643 
ASK 50:DRAM 639,1:DRAW 639,399:DRAW 
1,399:DRAW 1.1 


Vous aimez écrire, vous possédez 
un bon sens critique 
et un jugement sûr. 

Le monde AMSTRAD vous passionne ! 

AM-MAG 

le leader de la presse dédiée 
recherche des collaborateurs 

pour étoffer son équipe rédqctionnelle. 
Contactez: J. Eltabet au (1) 43 98 22 22 
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660 PLOT 17,38:MASK 100:DRAW 450,38 137703 
iPLOT 450,65î DRAW 450,8!PL0T 220,65 
: DRAM 220,38:PLOT 120,38:DRAW 120,0 
670 MASK 250:PLOT 15,70:DRAW 624,70 [23873 
: DRAW 624,385:DRAW 15,385:DRAW 15,7 
0 

680 MASK 254 : PLOT 20,67:DRAW 619,67 [43373 
: DRAW 619,5:DRAW 20,5:DRAW 20,67 
690 PAPER#1,0:LOCATE#1,3,22:PEN#1,2 [65833 
:PRINT#1,“score:"j:PEN#1,3:PRINT#1, 
score 

700 L0CATE#1,13,24:PEN#1,3:PRINT#1, [53963 
"cadeaux::PEN#1,2:PR INT#1,STRING* 

(cadeau,CHRF(205)) 

710 IF cadeau=3 THEN DI :ERASE CASE: [28053 

DIM CASE(36,18):cadeau=0:LOCATE#1,2 

1,24:PRINT#1,“ ":GOTO 550 

720 LOCATE*1,17,22 : PAPER#1,1 :PEN# 1, [24043 

0:PRINT#1,"TROU:"!trou:PAPER#1,0 

730 saF»“SALLE“:LOCATE#1,31,23:FOR [52013 

j = l TO 5:cnX=-cn'/. + l:PEN#l,cn7.+l:PRI 

NT#1,MI DF(sa#,j,1)|:NEXT:PRINT#1,sa 

lie 

740 L0CATE#1,3,24:PEN#1,2:PRINT#1,S [41773 
TRINGF(vie,CHRF(206))i* “ 

750 RETURN [5553 

760 ENT-5,4,1,1,4,-1,1 :WINDOW 3,38, [18713 
3,20:d= 1 

770 ON salle GOTO 780,790,800,810,8 t13623 


20,830 

780 RESTORE 990:G0TO 840 [11443 
790 RESTORE 1790:GOTO 840 [10043 
800 RESTORE 1960:G0T0 840 [11223 
810 RESTORE 2090:GOTO 840 [10853 
820 RESTORE 2130:G0T0 840 [12923 
830 RESTORE 2570:G0T0 840 [13011 


840 CLS:FOR n = l TO 17:F0R m=l TO 35 [16873 
iREAD a 

850 ON a+1 GOSUD 910,870,880,890,90 [30213 

0,910,920,930,940,950,960,970,980 

860 NEXT:NEXT:GOTO 1040 [14983 

870 CASE (in, n ) = 1 : ! PLACE, 201,1, n,m:RE [27943 

TURN 

380 CASE(m,n)=l:! PLACE,202,1 ,n,m:SO [24543 
UND 1,284,0.5,15,,5:RETURN 
890 CASE(m,n>=2:(PLACE,200,3,n,m::R [23243 
ETURN 

900 CASE(m,n) = 1 :(PLACE,203,1 ,n,m:SO [35613 

UND 1,418,0.5,15,,5:RETURN 

910 CASE(m,n)=0:RETURN [15413 

920 CASE <m,n) = 1 : ( PLACE,204,1,n,n: RE U8973 

TURN 

930 CASE(m,n)=3:(PLACE,205,2,n,m:SO [40643 

UND 1,638,0.5,15,,5:RETURN 

940 CASE(M,N) = 1 s(PLACE,228,1 ,n,m:RE [29163 

TURN 

950 CASE(m,n) = 1 :(PLACE,229,1 ,n,m;RE [26903 
TURN 

960 CASE(m,n>=4:(PLACE,230,1,n,m:RE [28213 
TURN 

970 CASE(m,n)=4:(PLACE;231,1,n,m:RE [29513 
TURN 

980 CASE(m,n)=4:(PLACE,232,1,n,m:RE [29913 
TURN 

990 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,, [71803 

*3,1,4,4, 

4(4,1,,,,,,,,,,,,,,,,,,3,1,4,4,4,1, 

7 7 3 I I 3 

, 1 , , , , 1 , 


1000 DATA ,,,,3,1,,,7,^1,,,,,,,,,,, 
,,,,,,3,1,,7,,1,,,,,,3,4,2,4,4,2,2 
,,,,,,,,,,,,,,,,,^, 2 , 2 , 4 , 2 , 2 ,,, 1,1 

1.1.. ......1.1.1.1..,»,,,,,,,,3,,, 

lOiO DATA ,,,,,,,,,,,,,,,3,,,,,,,,, 
,,,,,,,,,u,1,1,2,2.2,1,,,I,2,4,ù,2 

1.2.2.4.4.2.. 4.2.4.1.1.4.1.2.4.1.3, 

1.. 3.1.....1......3...6....6,6,,6, 

2,2,2,6,,,6,3,,,,,3,1,,,7,,1,,,,,,3 
,!,),,,,,,11,6,,,,,3,,,,,3 . 

1020 DATA 1,2,6,4,2^6,,,,,, 3,^ ,,,,, 
)i))iiiiii1i1)3,,,3,6,,,,6,,,,,,,3 

l ) l ) l ) l l l l l l l l l t i i 13, I , 3, , , , , , , , , , 

1.3.4.1.1, 4,2,2,4,2 

) 3 

1 )Ul,,!,,ll)!'- , ,,,,,,,,,,,,,,,U,,,, 

. 1 

1030 DATA ,,,3,,,,,,,,,,3,,,,,,,,,, 
,,,,3,,,,,,,,,,3,,,,,,,1,1,1,1,1,1 

1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1, 
1,1,1,1,1,1,1,1,1,1,1,1,1,1 

1040 GOSUB 1850 
1050 RETURN 
1060 • 

1070 IF salle»! THEN x = liy=16:r.=23: 
m=1 :nbb=0 

1080 IF sal1e=2 THEN x»17:y=l:n»l6: 

m=14:nbb=l: nn=20: mm=3 

1090 IF sal1e=3 THEN x» 10:y=14:n»17 

:m=14:nbb=l:nn=2:mro»14 

1100 IF salle=4 THEN x=9:y»16:n»17: 

m=16:nbb=l:nn=21:mm»12 

1110 IF salie=5 THEN x = 11 : y»16:n=35 

: m»6 : d= 1 :p=6: I PLACE,211,3,p,o:r»l:n 

b b = 1:nn = 2:mm=13 

1120 IF sal1e=6 THEN x=20:y=12:n=20 
: m=6:nbb = l:nn = 6:mro=l6:r»1 :o»4:p»6:! 
PLACE,211,3,p,o 

1130 ! PLACE,206,2,y,x:(PLACE,211,3, 
m,n 

1140 EVERY 40,1 GOSUB 2490 
1150 ’ 

1160 IF INKEY(0)=0 THEN nroo»0:G0SUB 
1490 

1170 IF INKEY(27)=0 THEN GOSUB 2510 
1180 IF INKEY(1)=0 THEN n»o=0:G0SU8 
1350:GOTO 1200 

1190 IF INKEY(8)=0 THEN n»o=0:G0SUB 
1420 

1200 IF INKEY(2)=0 THEN n«o=0:G0SUB 
1520 


1210 rtmo=nmo-H 

1220 IF INKEY(63)=0 THEN IF CASE(x+ 
1 ,y + l) = 1 AND y<16 AND trou>0 THEN G 
OSUB 1750 

1230 IF INKEY(71)=0 THEN IF CASEfx- 

1, y+1) = 1 AND y<16 AND trou>0 THEN G 
OSUB 1770 

1240 ON CASE(x,y)+1 GOTO 1260,1260, 
1260,1250 

1250 cadeau=cadeau + l: CASE(x,y)=0:(P 
LACE,32,1,y,x+l:score=score+100:SOU 
ND 1,100,30,9:SOUND 1,230,20,8:SOUN 
D 1,150,14,9:S0UND 1,100,30,10:DI : G 
OSUB 690:El 

1260 IF CASE(x,y+l)=0 THENI BAS,206, 

2, êy,x 

1270 IF x=n THEN IF y=m THEN vie»vi 
e-1:GOSUB 2410 


[7154] 

(99363 

[8055] 

[6262] 

[849] 

[555] 

[117] 

[2903] 

[2816] 

[2955] 

[3817] 

[5100] 

[5459] 

[2568] 

[1143] 

[117] 

[1813] 

[1430] I 
[3601] 

[2550] 

[2549] 

[176] 

[2288] 

[3469] 

[2000] 

[8362] 

[1912] 

[2974] 


10 




Yrox 


1280 G0SUB 1500 

1290 IF nbb THEN GOSUB 2310 

1300 IF r=0 THEN 1100 

1310 IF x=o THEN IF y=p THEN vie=vi 

e-lîGOSUB 2410 

1320 GOSUB 2170 

1330 GOTO 1100 

1340 ' 

1350 ON CASE.(x + l,y)+1 GOTO 1370,130 
0,1370,1370 ,, 

1300 SOUND 1,3000,2,12:RETURN 

1370 pep=-pep+ls ! DROITE,206+pep*3,2 

,y,«K 

1380 SOUND 3^1,0,12 

1390 IF CASEix-l,y)*2 THENPLACE,20 

0 » a, y, x - 1 

1400 RETURN 

1410 1 

1420 ON CASElx-1,y)+1 GOTO 1440,143 
0,1440,1440 

1430 SOUND 1,3000,2,12:RETURN 
1440 pep=-pep+l:[GAUCHE,207+pep,2,y 

î450 SOUND 3,1,6,12 

1460 IF CASEix + 1,y)=2 THEN! PLACE,20 

0,3, y, x +1 

1470 RETURN 

1480 ’ 

1490 1F CASE(x,y-l)=0 THEN IF CASE( 
x,y+1)=1 THENI HAUT,206,2,êy ,x 
1500 IF CASE(x,y>=2 THEN!PLACE,200, 
3,y ,x :y=y-l : ! PLACE,206,2,y,x! SOUND 
y/5,1,6,13 
1510 RETURN 

1520 IF CASE(x,y)=2 THEN IF CASEfx, 
y + 1> =2 THENIPLACE,200,3,y,xsy=y+l: i 
PLACE,206,2,y,XiSOUND y/6,1,6,13 ! RE 
TURN 

1530 IF CASE(x,y+l)=2 THEN! BAS,206, 
2,Sy ,x : SOUND y/6,1,6,13 
1540 RETURN 
1550 ' 

1560 IF m<y THEN IF CASE (n , i» + l > =2 A 
ND CASE(n, m) =0 THEN i»s=-ms + l : !BAS,2 
16+ms,3,êm,n 

1570 IF m<y THEN IF CASE(n,m+1)=2 A 
ND CASE(n,m)=2 THEN1 PLACE,200,3,m,n 
:i»=m+l:i»s=-i#s + l:!PLACE,216+<ns,3,m,n 
!RETURN 

1580 IF m>y THEN IF CASE(n,*)=2 THE 
NiPLACE,200,3,m,nim«n-lins»-ns+liÎP 
LACE ,2164ns,3,a,niRETURN 
1590 IF nmo>10 THEN ni»o=50:G0T0 202 
0 

1600 IF n=x THEN i»s=-ns+l: 1 PLACE,21 
6+ms,3,m,n:G0T0 1730 
1610 IF n<x THEN GOSUB 2010s GOTO 16 
80 

1620 IF n>x THEN GOSUB 2000 
1630 IF CASE (o , ni ) = 1 THEN CASE(n,m)= 
0 

1640 ON CASE(n+1,m)+1 GOTO 1730,173 
0,1650,1660,1670 

1650 [PLACE,200,3,m,n+1.‘GOTO 1730 
1660 IPLACE,205,2,m,n + 11GOTO 1730 
1670 ! PLACE,232,1 ,n,n + 1iGOTO 1730 
1680 IF CASE(n,m)=1 THEN CASE(n,m)= 
0 

1690 ON CASE (n-1 .ib) +1 GOTO 1730,173 


C 899 3 
C12061 
C10411 
120053 

18733 

13073 

11173 

130243 

117263 

126103 

111273 

119083- 

15553 

11173 

119753 

117263 

122083 

111273 

117833 

15553 

11173 

135193 

147913 


15553 

166573 


123593 

15553 

11173 

138093 


169143 


173903 


119853 

120943 

113523 

18463 

111913 

126973 

115783 

119243 

118243 

111913 

115973 


0,1700,1720,1710 

1700 [PLACE,200,3,m,n-1:GOTO 1730 

1710 [PLACE,232,1,n,n-1iGOTO 1730 

1720 [PLACE,205,2,m,n-1 

1730 IF CASEIn,m+l)=0 THEN i»5=-m5 + l 

: ! BAS , 216 + 105,3, Si» , n 

1740 RETURN 


1750 CASE(x + 1,y+1) s 0:DI :LOCATE x+1, 
y+liPRINT" "itrou=trou-l:LOCATE#1,2 
3,22:PAPER#l,liPEN#l,0:PRINT#l,trou 
: PAPER#1,0iEl 
1760 RETURN 

1770 CASE<x — l,y+l)=OsDIsLOCATE x-1, 
y+IiPRINT” "strou=trou-liLOCATE#1,2 
3,221PAPER#1,1iPEN#l,0:PRINT#l,trou 
: PAPER#1,0:El 
1780 RETURN 

1790 DATA ,, 7,,,,,,,,,,,,,, 
,»,»»,i,*»,1,4,2,6,4,3,,,,, 
2,6,2,2,4,4,,,,,,,,,,,,,4,, 


,»,»»» 

,, i 14 , 


, » 4 , , » 

1,4,1, 


», j ,, , i i ,,,,,,, 

,,,1,1,1,1,1,1,1,1,1,1,1,1,1 
i»^,'4,i,i,4,i,i,2,o,,,,3,, 

1800 DATA 1,4,2,4,4,2,2,6,6,4,6,2,6 
,2,4,2,6,6,4,1,1,1,1,1,,,,,,3,,,,,, 
I»6,,,,,,,,,,,,,,,,,1,1,4,2,1,1,,,* 
, » 4,,,,,,4, ,,,7,,,,,,,, 

1810 DATA 2,4,6,2,2,1,,,,,1,3,6,6,2 
,4,6,,, ^,,2,4,2,6,6^6,4,2,2,6,4,2,6 
,4,4,6,2,2,1,,,,,1,3,,,,,,,,,,,,,,, 
»»,,,, !,,»,,»» 1 ,,,,» 1 , 3 ,,,,,,,,,,,, 
1,»,,,1,3,,,,,,3,1 
t2,2,4,4,2,3,,,,,,,,,,,,,,,,l,l,l,l 


,1 

1820 DATA 1,4,,,,,,3,,,,,,,3,,,,,,, 
,,3,2,4,2,3,, 

1330 DATA ,,,,,,3,2,4,4,6,2,2,4,2,4 
,4,,,3,1,1,3,,,,,,3,1,1,1,3,,,,,,,, 
»ï,,,<,,,,,,,i,4,,,3,1,1,3,,,3,1,1, 
1,1» 1,1,1,1,1,1,1,1,1,1,1,1» 4,6,4 

,4,2,4,2,2,6,4,4,6,2,2,3,,,3 
1840 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 
,l,l,l,3,,,,,,7,,,,,,,,,o,,,o,l,l,l 
, 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 
1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1,1 
, 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1,1 
1850 MASK 255î PLOT 100,80,2iDRANR-3 
,lOï PLOTR 7,0ïDRAWR-4,-4iPL0T 108,8 
OlDRAWR 0,8:PLOTR 0,-liDRAWR 4,-lsP 
LOT 117,80ïDRAWR-l,l:DRAWR 0,6iDRAW 
R 1,1s DRAWR 2,OlDRAWR 2,-2sDRAWR 0, 
-4 iDRAWR-2,-2iDRAWR-1,0iPL 0T 125,80 
:DRAWR 6,6sPLOTR-6,OsDRAWR 6,-6 
1860 PLOT 460,801DRAW 600,80 
1870 PLOT 20,80sDRAW 92,80:PL0T 135 
,80iDRAW 300,80îMASK 180sGRAPHICS P 
APER 3iPLOT 307,80,2:DRAWR 0,10iDRA 
WR 8,0iPLOT 307,80iDRAWR 8,OlDRAWR 
0,6s DRAWR-3,0s PLOT 318,80iDRAWR 0,1 
OlDRAWR 8,OlDRAWR 0,-lOlPLOTR 0,5lD 
RAWR-8,0sPLOT 330,90:DRAWR 0,-10:DR 
AWR 8,0 

1880 DRAWR 0,1 Os PLOT 343,80iDRAWR 0 
,10:DRAWR 8,-2iDRAWR 0,—6iDRAWR-8,- 
2sPLOT 356,80:DRAWR 0,7:PLOTR 0,2:P 
LOT 360,80iDRAWR 0,10:DRAWR 8,-10sD 
RAWR 0 10 

1890 PLOT 382,80:DRAWR 0,10:DRAWR 8 
,0:PLOT 382,86:DRAWR 6,0:PL0T 395,8 


113071 
[22031 
C 1254 3 
[29491 

[5551 

[61351 


[5551 

[67431 


[5551 

[93781 


[62041 


[89921 


[14073 

[73671 


[69433 


[127603 


[4133 

[129713 


[66443 


[156183 
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0:DRAWR 0,10:DRAWR 8,0:DRAWR 0,-10: 
PLOTR 0,5:DRAWR-8,0:PL0T 407,80:DRA 
WR O,10:DRAWR B,0:DRAWR-8,-5:DRAWR 
8,-5:DRAWR-8,0:PLOT 420,80:DRAWR 0, 
8:PLOTR 0,3 

1900 PLOT 436,80:DRAWR-8,0:DRAWR 0, 
10:DRAWR 8,0:PL0T 428,85:DRAWR 5,0: 
PLOT 440,80:DRAWR 0,10:DRAWR 8,-10: 
DRAWR 0,10 


1910 RETURN 

1920 GRAPHICS PAPER OiMASK 50:PL0T 
20,94,1:DRAW 400,94 
1930 ' 

1940 CLS:LOCATE 2,10:PEN 3:PRINT”Vo 
us avez perdu avec un score de”j:LO 
CATE 1,11:PEN 2:PRINT score::PEN 3: 
PR INT"et vous avec pris“j:PÈN 2 : PR I 
NT cadeau;:PEN 3:PRINT”cadeaux.”: PE 
N 3:L0CATE 2,13:PRINT"Vous etes arr 
ive a la salle";:PEN 2 
1950 PRINT salle;:PEN 3:PRINT”.": LO 
CATE 2,15:PRINT"Courage, vous gagne 
rer sûrement":LOCATE 2,16:PRINT"bie 
ntot...”:CALL &BB06:RUN 520 
1960 DATA 1,2,4,4,1,1,2,4,4,4,1,,,, 

l,»,4,2,a,,,,,,,,,,,,,,,,,,,,l,,,,l 
,1,1,,7,,1,,,,,3,,,,,,,,,,,,,,,,,,, 


,1,,,,1,1,1,1,4,4,2,,,,2,4,6,4,4,2, 
7,6,,,,,,,,,,,,,,1,,,,1,1,4,2,4,6,, 
»»,,,,»,,,3,,,,3,4,4,4,2,2,4,4,2,1, 


1,9,7,,4 

1970 DATA 4,4,6,,,,,,,,,,,,,,a,,,,v 
,,,,,1,,,,1,,4,4,2,2,6,,,,,,,,,,,,, 
,»,3,,,,3,,,,,1,,7,,1,,3,,,,,,,,,,, 
,,,,,,,0,2,4,2,6,,3,,,,,2,4,2,4,4,3 
,9,2,2,4,a,,,,,,,,,,,,,,,,,,,,3,,,, 


,, 3,, 


, a,,,,, 


,,,,,,,,,,, ,,,,V, 


,,,,,,,, 


1980 DATA 3,,,,,3,,,,,,,,,,,,,,,,,, 
,,3,,,,,,,,,,3,,,,,3,i,,,,,,,,,,,,, 
,,,,,3,,,,,,,,i,3,,,3,4,4,2,4^4,3|4 
,2,6,,,,,,,,,,,,,3,1,,,,,,,,,3,,,3, 
,,», » aa,1,,,,,,,,, a 
, 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 
1,1,1,1,1,3,1,1,1,a,1,1,1,1,1,1,3,3 


,,,,,,,,,, 

1990 DATA ,,,,,,,,,,,,3,,,,3 ,,,,,,, 


3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 

, 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 


1 

2000 ms=-ms+l: ! GAUCHE, 211 -uns, 3, m, @n 
:RETURN 

2010 ms=-ms+l:1DROITE,213+ms,3,m,ên 
:RETURN 

2020 IF INT(RND+6)= 1 THEN pll*INT(R 
ND+2) 

2030 1F p11=0 AND NOT CASE(n+1,m)=1 
AND NOT CASE(n+1,m)=4 THEN GOSUB 2 
010 

2040 IF pI1=1 AND NOT CASE(n-1,m)=1 
AND NOT CASE(n-i,m)=4 THEN GOSUB 2 
000 

2050 IF CASE(n+1,m)=2 THEN! PLACE,20 
0,3,m,n+l 


2060 IF CASE(n-1,m> =2 THEN! PLACE,20 
0,3, m, n -1 


2070 IF CASE(n,m+1)=0 THEN ms=-ms+l 
:!BAS,216+ms,3,êm,n 


C 6950 3 


15551 

[2629] 

[1171 

[163743 


[97951 


[117911 


[85881 


[117503 


[44663 

[22573 

[18113 

[20343 

[31563 

[25893 

U8633 

[12963 

(29493 


2080 RETURN 

2090 DATA 1,1,1,6,4,2,1,1,1,1,1,1,1 
,1,1,1,2,2,6,6,2,4,3,1,1,1,1,1,1,1, 
1,1,1,1,1,1,1,1,,,,1,1,1,1,1,1,1,1, 
1»,»»,,,,3,1,1,1,1,1,1,1,1,1,1,1,1, 
1,1,1, ,,,1,1,1,1,1,1,1,1,1,1,1,1,1, 

1.. .3.1.1.4.2.6.2.4.1.1.1.1.1.1.1.1 
,,,,1,1,1,1,1,1,1,4,4,2,2,6,2,1,,,3 

2100 DATA 1,1,1,1,1, 1,1,,,,,,m3,1, 

1.1.. ...1.1...3.1.1.3.1.1.1.1.3.1.1 
,1,1,1,1,1,1,1,7,1,1,1,1,3,1,1,1,,7 
,,,1,1,,,3,1,1,3,1,1,1,1,3,1,1,1,1, 
1,1,1,1,1,1,1,1,1,1,3,4,2,2,2,2,4,2 
,6,1,,,a,,,a,1,1,1,1,3,1,1,1,1,2,2, 

2.6.2.4.4.4.2.2.3.. ..........1 

2110 DATA 1,1,1,1,1,1,1,3,1,1,1,1,6 
,6,,,6,6,,6,2,1,4,2,4,4,2,4,2,2,6,2 
,4,4,2,2,4,2,6,6,2,1,3,1,2,6,2,,,,, 
,»»,»»»»»,6,,,,6,,6,6,,6,,,,,,l,a,l 
,»,»»»»»,,»,»»»,»,,»,,,» »»»,»,,,» 1 , 
3,1, 

,1,a,1»,,,,,,,,,3,4,2,1,2,2,4,2,1,4 

2120 DATA ,,,,,,1,3,1,,,,,,,,,,a,,, 
,1,3,1,,,,,,, 
,,,3,,,l,i7,,,1,,,3,,,,,,,,,,,,1,3, 

1 .. .......,°,,, 1 , 1 , 1 , 1 , 1 , 1 ,,, 3 ,,,,, 

,»»»»,»,A,,,,,l,l,l,l,l,l,i,1,1,1,1 
,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 
1,1,1,1,1,1,1 

2130 DATA ,,,,,,,,,,,,,,,,,,,,,,,,, 
,,,,,,,,,,,,,,,,1,4,4,2, 4, 2,6,1,1,4 
,2,4,2,6,2,1,1, 2 , 2 , 6,2,4,1,3,,,,,, ^ 
,1,1,,,,,t,l,l,,,,,,l,a 
7,||,,1,1i,7,,,,,1,1 
,»7,,,,1,3,,,,,,,,,,,,4 
2140 DATA 6,2,4,4,2,6,2,4,2,4,4,2,6 
,6,2,4,a,6,2,6,4,2,3,,,,,,,,,,,,,,, 
,,,,,,,,,,,,,,,,,,,,3,,,,,,4,2,2,4, 

3.1.2.2.4.3.6.6.2.6.2.4.4.4.2.4.2.4 
,2,2,6,2,2,4,2,6,2,4,,2,4,,,,,3,,,, 
,a,,,,,,,,,,,,,,,,,,,,,,,,,,1,1,1,1 
,3,1,1,a,1,1,1,1,3,1,1,1,3,1,3,1,a, 
1,3,1 

2150 DATA 1,3,1,1,3,1,1,3,1,1,1,4,2 
,4,2,6,6,2,2,4,2,4,2,6,4,2,2,6,4,2, 

2.4.6.2.2.4.4.4.6.2.6.4.3.1.4.2.. ., 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,,,,4, 

2.4.2.3.4.4.2.6.2.6.4.6.4.6.2.4.2.4 
,2,2,6,6,2,6,2,4,4,2,4,4,2,6,2,2,,, 
,, 3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,1 
,M, 1,3,1 

2160 DATA 1,1,4,1,1,4,2,4,4,2,2,6,2 
,6,6,6,2,2,6,2,6,2,4,2,4,3,2,4,2,6, 

^,4^4,a,,4,4,1,1,,,,,,,,,,,,,,,,,,, 
,,,a,,,,,,,,a,,,,!,l,,,,,,,,,,,,,,, 

,,,,,,,a,,,,1,1,1,1,1,1,1,1,1,1,1,1 
,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 
M.1,1,1,1 

2170 IF y >p + 2 THEN 2220 

2180 IF CASE(o,p+l1=0 THEN1 BAS,226 + 

os,2,@p,o 

2190 IF x >0 THEN IF CASE <0+1,p)-0 T 
HEN os=-os + l: ! DROITE,224 + os,2,p,®o: 
RETURN 

2200 IF K<o THEN IF CASEto-l,p)*0 T 
HEN o5=-os + l: ! GAUCHE,226+os,2,p,@o: 
RETURN 


(5551 

[129591 
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[111871 


[101893 


[85463 


[109513 


[111933 


[98273 


(14973 

[11343 

[46063 

[58383 
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Yrox 


2210 RETURN C5553 

2220 IF CASE(o,p+1)=0 THEN! RAS,225+ [31211 
os,2,Sp, o: RETUR.N 

2230 ON re+1 GOTO 2240,2260 E14353 

2240 os=-os+l:IDROITE,224+os,2,p,«o [37123 
: IF o>30 OR NOT CASE(o+l,p)=0 THEN 
re=l 

2250 RETURN [5553 

2260 os=-os+l:1GAUCHE,226+os,2,p,@o [22323 
: IF o<5 OR NOT CASE(o-1,p)=0 THEN r 
e=0 

2270 RETURN [5553 

2280 IF CASE(n,m)=0 THEN! PLACE,32,3 [14853 
, o, n 

2290 iPLACE,200, 3, m, n [9573 . 

2300 RETURN [5553 


2310 IF CASE (nn, ram)=2 THEN IF NOT I [100803 
NT(RNO+3) = 1 THEN ! PLACE,200,3,mm, nn 
: 1 s mms=—mms + 1 : ’ PLACE, 222+mms, 

1,mm, nn:RETURN 

2320 ON CASE(nn,ram)+1 GOTO 2360,236 [22973 
0,2350,2330,2340 

2330 z=205:coc=2:GOTO 2360 [8553 

2340 z = 232:coc = l: GOTO 2360 [15473 

2350 z=200:coc=3 [15753 

2360 IF CASEinn+pl:,mm) = 1 OR nn>33 0 [42803 
R nn<2 THEN IF pk = 1 THEN pk = -1 ELSE 

p k = 1 

2370 mms=-mms+l:!PLACE,z,coc,mm,nn: [54603 
nn=nn+pl: : î PLACE, 221 -mms- < p k +1 ), 1, mm 
,nn:z=32 

2380 IF nn=x AND mm=y THEN vie=vie- [26863 
1 :GOSUR 2410 

2390 IF CASEinn,mm+1)=0 THEN «ns=-« [33253 
m5+1 : îRAS,222+mms,1,êmm,nn 
2400 RETURN [5553 

2410 LOCATE x,y:INK 1,24,15:PEN 1 : P [66333 

RINT”W”:GOSUB 740:SOUND 1,1000,30,1 

1.. 5:SOUND 1,2000,10,12,,5:SOUND 1, 

3500.30.13.. 5 

2420 FOR t=0 TO 1000:NEXT [14033 

2430 ON SALLE GOSUR 570,580,590,600 [12583 

,610,620 

2440 IF CASE in,m) = 2 THEN! PLACE,200, [24073 
3,m,n ELSEI PLACE,32,3,m«n 
2450 IF nbb=l THEN IF CASEinn,mm)=2 [33943 
THEN! PLACE,200,3,mm,nn ELSE! PLACE, 
32,3,mm,nn 

2460 IF r=l THEN IF CASE(o,p)=2 THE [50033 
N ! PLACE,200,3,p,o ELSE! PLACE,32,3,p 
,0 

2470 IF vie<1 THEN DI : GOTO 1940 [11533 

2480 r e=0: GOTO 1070 [5703 


2490 IF score>0 THEN DI :PAPER41,0:s 
core=score-2:LOCATE#1,9,22:PEN#1,3: 
PR I NT#1,score : El 
2500 RETURN 
2510 DI 

2520 WHILE INKEY't< >“" : WEND 
2530 TAG: GRAPHICS PAPER OiMOVE 250, 
240,2,11PRINT"* PAUSE *“i 
2540 CALL &BR1B 

2550 MOVE 250,240,2,1:PRINT"* PAUSE 
sTAGOFF 
2555 El 
2560 RETURN 

2570 DATA 1,1,2,6,,,,,,,,,,,,,,,,,, 




2580 DATA 1,4,8,,,,,,,,,,,,,,,,6,6, 

6,2,2,2,2,4,4,4,1,4,1,1,1,1,3 

2590 DATA 1,1,4,8,,,,,,,,,,,,,,,,,, 

,,,6,6,6,6,2,2,2,4,1,1,o 

2600 DATA 1,1,1,4,1,12,12,12,12,12, 

0,12,4,2,6,,,,,,,,,,,,,,,6,6,6,4,1, 


2610 
,, i ,, 
2620 
11 », , 
2630 
,,9,1 
2640 
10,11 
2650 
, ^, 1 , 
2660 
, 11,1 
2 , 12 , 
2670 
,3.1, 


DATA 1 
,,,,,9 
DATA 1 
,, , 9,1 
DATA 1 
, 1 , 1,1 
DATA 1 

,,, m, 

DATA 1 
1 , 1 , 1 , 
DATA 1 
2 , 12,1 
12 , 12 , 
DATA 1 
1 , 1 , 1 , 


,1,1,1,9 
, 0 ,,,,,, 
, 6 , 6 , 6,6 
, 1 , 8 ,,,, 
,,,,,,, 1 
, 8 ,,,,,, 
,,,, 2 ,,, 
11 ,,,,,, 
,,, 1 , 1,1 
, 7 , 1 , 1,1 
,,, 1 , 1,1 
2 , 12 , 12 , 
3 

,,,6,6,6 
4,4,6,6, 


, , , , , 3 

2,12,,3,,,,,,,,, 
, ,3 

,,,3,,,,,,,,,,o, 
, ,3 

, 1,,, 1,1,3,,,,,, 
, 1 , 1 , 1 , 1 , 1 , 1,3 ^ 
,1,,,,,3,,,,,,,3 
12,12,12,12,12,1 

,6, ,10,11, ,z>,,,, 
6,2,6,6,2,6,6,6, 


2680 'DATAJ,8,,,,,,,10,11,,3,1,1,1, 

1 . 12 .. .. 12 . 1 . 1............3 

2690 DATA 1,1,12,12,12,12,1,12,12,1 

, 1 , 1 , 1 , 1 , 1 , 1 , 12 ,,, 12 , 12 , 1 , 1 ,,,,,,,, 

27ÔÔ' > DATA ,,,,,,,,,12,12,12,12,12,1 

2 . 12 . 12 .. . 12 . 12 . 12 . 12 . 3...........3 

2710 DATA 1,1,12,12,12,12,12,12,12, 

12 , 12 , 12 , 12 , 12 , 12 , 12 , 1 , 1 , 12 , 12 , 12,1 

2.12.3.. 12.1.7.1.12.....3 

2720 DATA ,,,,,,,,,,,,,,,,,,,,,,,o, 
1,1,1,1,1,1,1,1,1,1,3 
2730 DATA 1,1,1,1,1,1,1 ,1,1,1,1 ,1,1 
,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 
1 , 1 , 1 , 1,1 


[77263 

[5553 

[843 

[17863 

[24343 

[3893 

[28763 

[863 

[5553 

[16573 

[22973 

[25183 

[28023 

[23713 

[26123 

[16723 

[20523 

[30253 

(32983 

[24593 

[31933 

[38023 

[31223 
[47013 

[25543 

[33453 
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—$SS0^“ 

Gestion de 



PERIPHERIQUE 


C et utilitaire con¬ 
cerne les trois péri¬ 
phériques que sont 
le lecteur Pe dis¬ 
quettes, l'impri¬ 
mante et le lecteur K7, pour 
lesquels diverses options sont 
proposées. 

Lecteur de disquettes: DIRec- 
tory, CATalogue, changement 
de USER ou de DRIVE, scanner 
d’un fichier (type, user, exécu¬ 
tion, longueur, début), efface¬ 
ment, chargement, etc. 
Imprimante (DMP 2000 et com¬ 
patibles Epson): mini traitement 
de texte, changements de 
police d'écriture (italique, sou¬ 
ligné, NLO, double frappe, con¬ 
densé, etc.). 

Lecteur de cassette: charge¬ 
ment du second programme 
CATCASS, lequel permet 
l'analyse du header K7. 


Utilisation 

Il suffit de déplacer le curseur 
(touches fléchées gauche et 


droite) figurant sous les icônes 
en haut de I écran et de valider 
son choix par Copy. Certaines 
options réclameront confirma¬ 


tion (flèches et Copy). En pré¬ 
sence d'un menu, le retour aux I 
icônes s'obtient par appui sur J 
la barre d'espacement (ceci ne 1 
concerne pas CATCASS, bien 
évidemment). La sortie d'une 
option choisie s'effectue par 
Return sans spécification. 


Sauvegarde 

Sauvez le premier listing sous 
un nom de votre choix et te 
second sous le nom 

■■CATCASS ». 

Christian Navelot 




10 ’ ***»»**»****»*»*» [0703 

20'*GESTPER* [705] 

30 ' * (C) Christian * [979] 

40 ■ * NAVELOT t [73] 

50 ' *»**»#»****»*nt** [6703 

60 [1173 

70 MODE 1 [5063 

80 PAPER 0 [8163 

90 ! USER,0 [5303 

100 SYMBOL AFTER 32 (12963 


110 SYMBOL 165,255,128,161,129,129, [84073 
128,129,131iSYMBOL 166,255,1,133,12 
9,129,1,129,193:SYMBOL 167,131,129, 

128,255,128,128,128,255:SYMBOL 168, 

193.129.1.255.1.1.1.255 

120 SYMBOL 169,255,192,239,224,231, [89113 

128,177,239:SYMBOL 170,255,15,199,7 

,247,1,141,247:SYMBOL 171,224,207,1 

59,159,159,159,207,255:SYMBOL 172,7 

,243,249,249,249,249,243,255 

130 SYMBOL 173,255,128,191,208,192, (89123 

192,216,216:SYMBOL 174,255,1,253,11 

,3,3,27,27:SYMBOL 175,192,223,208,2 

55, 128,128,128,255:SYMBOL 176,3,251 

,11,255,1,1,1,255 

140 SYNB0L 177,255,128,128,189,177, (100223 
185,177,177:SYMBOL 178,255,1,1,181, 

189,181,181,181:SYMBOL 179,128,128, 

255,201,146,164,201,255: SYMBOL 180, 

1.1.255.37.73.147.37.255 

150 SYMBOL 181,63,127,127,255,255,1 [48223 
27,127,63:SYMBOL 182,252,254,254,25 
5,255,254,254,252 

160 CLS [913 

170 MODE 1 : INK 0,26:INK 1,0:B0RDER [6597] 
0:CLS:FOR i=l T0 25:PEN 1:PRINT STR 
14 


INGt(40,207>; :NEXT:PEN 0 

180 INK 3,13 [2413 

190 PAPER 0:PEN 1 [9653 

200 L0CATE 5,2:PRINT CHRt(165)jCHRt [2237] 

<166):L0CATE 5,3:PRINT CHRt(167):CH 

RS(168) 

210 LOCATE 15,2:PRINT CHR*(169)|CHR [30373 
S(170):LOCATE 15,3:PRINT CHR*<171>i 
CHRt(172) 

220 LOCATE 25,2:PRINT CHRt<173);CHR [41853 
t<174)iLOCATE 25,3>PRINT CHRt<175)j 
CHRt(176) 

230 LOCATE 35,2:PRINT CHRt<177)|CHR [38423 
t(178):LOCATE 35,3:PRINT CHR*(179)j ' 

CHRt(180) 

240 LOCATE 2,6:PEN 3:PRINT STRINGt( [26083 
2,143)|:PEN 0 

250 WINDOW #2,2,39,5,5 [12293 

260 PAPER #2,3:CLSI2 [21343 

270 WINDOW 2,39,7,24 [11623 

280 ORIGIN 15,15:DRAW 0,321,1 :ORIGI [67633 
N 15,336:DRAN 609,0:0RIGIN 624,336: 

DRAW 0,~17,0iORIGIN 624,319:DRAW -5 
77,0 

290 ORIGIN 47,319:DRAW 0,-15:0RIGIN [33543 
47,304:DRAW 577,0:0RIGIN 624,304:D 
RAM 0 **289 

300 ORIGIN 624,15:DRAW -609,0:0RIGI [17023 
N 0,0:DRAW 640,0,3 

310 ORIGIN 639,0:DRAW 0,400:DRIGIN [36433 
0,0:DRAW 0,400:0RIGIN 0,399:DRAW 64 
0,0 

320 PAPER 3:CLS [8613 

330 PEN 0 ^ [5503 

340 DATA "123 125 123 123 2 123 133 [12873 
223 125" 














Gestion de périphérique 


350 DATA "2 2 2 2 2 2 2 242 £12723 

242 2” 

360 DATA “2 7 22 423 2 22222 C10593 
2 2 22 * 

370 DATA ”262 2222222 £15093 

212 2 “ 

380 DATA ”425 423 425 2 2 425 2 2 C12713 

225 423* 

390 SYMBOL 143,255,255,255,255,255, £55903 
255,255,2551 SYMBOL 138,15,15,15,15, 

15,15,15,15!SYMBOL 140,0,0,0,0,255, 


255,255,255 

400 x = 1 1 y»l £8503 

410 GOSUB 2260 £8711 

420 DATA “123 125 123 2“ £5463 

430 DATA “222 222" £7983 

440 DATA ”225 22 225 2 22" £8903 

450 DATA "2 2 243 2* £5021 

460 DATA "2 423 242" £6683 

470 x = 1 !y = 7!GOSUB 2260 £16943 


480 DATA * 123 1 3 125 123 2 123 £19563 

1 3 125 123* 

490 DATA " 22222 22222 £17793 

2 2 2 2 * 

500 DATA " 225 222 22 225 2 2 2 £17553 

2 2 22 423* 

510 DATA ■ 2 222 243 2 2 2 £17603 

2 2 2 2 * 

520 DATA ” 2 2 2 423 2 4 2 422 £20163 

425 423 425* 


530 x=liy=13iG0SUB 2260 £14903 

540 LOCATE 25,19îPRINT CHRK213) £14383 

550 PEN 1 !LOCATE 19,9s PRINT CHRt <16 £48563 

4}}sPEN OiPRINT "NAVELOT *j:PEN liP 
RINT "Christian”;iPEN 0 
560 x4=4 £4763 

570 PEN #2,1 £5253 


580 PRINT #2,TAB(x4);CHR#(181); CHR! £23653 
(182) 

590 IF INKEY(8)=0 AND x4>4 THEN pr £27313 
od=-10iG0T0 630 

600 IF INKEY(1)*0 AND x4<34 THEN p £22213 
rod=lût 60TQ 630 


610 IF INKEY<9) =0 THEN 650 £6273 

620 GOTO 590 £4543 

630 PRINT #2,TAB<x4);” "ix4=x4+pro £45403 
diPR INT #2,TAB(x4);CHRI(181)|CHRP(1 
82) 

640 GOTO 590 £4543 

650 IF x4=4 THEN 700 £9803 

660 IF x4 = 14 THEN 1570 £16603 

670 IF x4=24 THEN 2140 £14363 

680 IF x4 = 34 THEN 2160 £12203 

690 GOTO 590 £4543 

700 CLSiPEN Oioui=0iRESTORE 710|G0S £14653 
UB 2310 

710 DATA "LECTEUR DE DISQUES",8 £17553 

720 DATA "Effacer un fichier" £5653 

730 DATA "Renommer un fichier" £5653 

740 DATA "DIRectory" £12883 

750 DATA "CATalogue" £7343 

760 DATA "Changer USER” £17983 

770 DATA "Changer DRIVE" £12113 

780 DATA "Charger un fichier” £18173 

790 DATA "Scanner d'un fichier” £14733 

800 x4 = 4 £4763 

810 PEN 1 :LOCATE 1,x4îPRINT CHRK18 £21943 
1);CHR!(182) 

820 IF INKEY(0)=0 AND x4>4 THEN pro £17683 
d=-l! GOTO 870 


830 IF INKEY(2)=0 AND x4< 11 THEN pr £21003 
od*liGOTO 870 

840 IF INKEY (9) “0 THEN 900 £5763 

850 IF INKEY(47)=0 THEN CLSiGOTO 56 £9963 
0 

860 GOTO 820 £3203 

870 LOCATE 1,x4iPRINT * "ix4=x4+pr £59963 

odiPEN 1iLOCATE 1,x 4 s PR I NT CHR* <181 
);CHR#(182)iPEN 0 

880 FOR i=1 TO SOiNEXT £8373 

890 IF INKEYIO** THEN 890 ELSE 820 £14683 
900 PEN 0 £5503 

910 IF x4 = 4 THEN GOTO 1000 £14483 

920 IF x4 = 5 THEN GOTO 1060 £20613 

930 IF x4=6 THEN GOTO 1150 £11183 

940 IF x4=7 THEN GOTO 1220 £12943 

950 IF x4=8 THEN GOTO 1260 £16373 

960 IF x4=9 THEN GOTO 1330 £12683 

970 IF x4=10 THEN 1400 £17873 

980 IF x4=11 THEN 1480 £15143 

990 GOTO 820 £3203 

1000 CLSiCAT £1403 

1010 IF INKEYIO"* THEN 1010 £9403 

1020 PRINT "Nom du fichier a efface £63713 

r * ; !INPUT nliIF LEN(nl)>12 THEN PR 
INT CHR#(7)iGOTO 1000 ELSE IF nt=“" 

THEN CLSiGOTO 700 

1030 GOSUB 2200 £8673 

1040 IF oui=l THEN !ERA,«nt ELSE CL £23083 

S:GOTO 700 

1050 GOTO 700 £4253 

1060 CLSiCAT £1403 

1070 IF INKEYIO"" THEN 1070 £9283 

1080 PRINT "Nouveau nom ";iINPUT ni £75123 

iIF LEN(n#)>12 THEN PRINT CHR*(7)iG 
OTO 1060 ELSE PRINT "Ancien nom 
IINPUT a*iIF LEN(a#)>12 THEN PRINT 
CHRt<7)iGOTO 1060 

1090 IF n#="" OR a# = “” THEN 700 £17723 

1100 IF n#=* * AND a#=*“ THEN 700 £9213 

1110 PRINT UPPER#(a#);" devient ";U £24773 
PPERI(nl) 

1120 GOSUB 2200 £8673 

1130 IF oui=l THEN !REN,«n#,8at ELS £10833 
E 1060 

1140 GOTO 700 £4253 

1150 CLS £913 

1160 IF INKEYIO”” THEN 1160 £9263 

1170 PRINT!INPUT "Critère de DIRect £38433 
ory"; cliIF LEN(ct)>3 THEN 1150 
1180 c#="*."+c#i!DIR,«c# £10653 

1190 IF INKEY!<>"" THEN 1190 £9283 

1200 IF INKEY#=”" THEN 1200 £8003 

1210 GOTO 700 £4253 

1220 CLSiCAT £1403 

1230 IF INKEYIO”" THEN 1230 £8803 

1240 IF INKEY# = " " THEN 1240 £7923 

1250 GOTO 700 £4253 

1260 CLSiPRINT * Changement USER* £25813 
1270 IF INKEYIO"" THEN 1270 £9363 

1280 INPUT "No USER*;uliIF LEN(u#)> £11473 
2 THEN 1260 

1290 u=VAL<ul)iIF u<0 OR u>15 THEN £28693 
1260 

1300 (USER,u £3813 

1310 PRINT "USER "|U £9483 

1320 IF INKEY#="“ THEN 1320 ELSE 70 £14263 
0 

1330 CLSiPRINT * Changement DRIVE” £26853 
1340 IF INKEYIO** THEN 1340 £9223 
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Gestion de périphérique 


1350 INPUT "DRIVE "jdfiIF LEN(df)>l [41171 
THEN 1330 ELSE IF df="" THEN df*"a 

H 


1360 df=UPPERt<df> [9661 

1370 IF df="A" THEN '.Ai PR INT "DRIVE [28093 
fl"i60T0 1400 

1380 IF dt="B" THEN IBiPRINT "DRIVE [23383 
B*i60T0 1400 

1390 GOTO 1330 [4483 

1400 IF INKEYf* ’• THEN 1400 ELSE 70 [ 14263 
0 

1410 CLSiPRINT * Chargeaient * [16273 

1420 IF INKEYfO*" THEN 1420 [9223 

1430 CAT [963 

1440 INPUT "No* du proqra**e ” 5 n* 1 1 [50703 
F LEN(nt)>12 THEN 1410 ELSE IF nf=" 

" THEN 700 

1450 nf=UPPERf<nt) [15713 

1460 GOSUB 2200 [8673 

1470 IF oui = l THEN RUN nf ELSE 700 [13693 

1480 CLSiPRINT" SCANNER'iPR IN [20563 

T " -" 

1490 ficî=" " iCAT (6373 


1500 IF INKEYfO”" THEN 1500 ELSE I [52533 
NPUT " No» du fichier "jficfiIF fie 
1="" THEN 700 

1510 DEF FNf< h)=(PEEK<w>+256*PEEK<h [52893 
+ 1 ) JIFOR 1*1 T0 LEN(FICt) iPOKE ScBEF 
F +1, ASC(NIDfIFICf,I,1>)iNEXT 
1520 DATA 06,05,21,0,8F,11,28,23,CD [21203 
77 BC C9 

1530 RESTORE 1520iF 0R 1=60 TO 71 s RE C44383 
AD AfiPOKE I,VAL("f"+Af) 1 NEXTlPOKE 
61,LEN<FIC*>iCALL 60 

1540 Af(l)="BIN"îAf(3)="BAS"iCLSiPR [68803 
INTiPRINT"NOM: ” ; îFOR I=&A756 TO 8.A7 
64 1 PRINT CHRf (PÉEKU) )i 1 NEXTlPR INT 
,"USERi"|PEEK(4A755) 

1550 T*3-PEEKUiA767) iPRINT "TYPEl * [75031 
| A* (T) I PRINT “EXECUTION] "|FNF<«,A76F 
) 1 PRINT * LONGUEUR 1 “|FNF(6A76D)!PRIN 
T "DEBUT:”|FNF(6A76A)iCALL IBB18 iG0 
TO 700 


1560 GOTO 1000 [3393 

1570 PEN 0 1 CLS 1 OUI=0iRESTORE 1580iG [25473 
OSUB 2310 

1580 DATA “IMPRIMANTE",11 [15793 

1590 DATA "Mini »ac. a écrire" [16563 

1600 DATA "Vider le buffer” [14113 

1610 DATA "Italique" [1351 

1620 DATA "NLQ" [1843 

1630 DATA "Souligne* [10513 

1640 DATA "Proportionnel NLB” [14883 

1650 DATA “Gras* [3111 

1660 DATA "Double frappe" [14253 

1670 DATA "Condense" [14083 

1680 DATA "Elite" [6723 

1690 DATA "Large" [8651 

1700 x4=4 [4763 


1710 PEN 1 1 LOCATE 1,x4iPRINT CHRftl [21943 
81)lCHRf(182) 

1720 IF INKEY(0> =0 AND x4>4 THEN pr [17323 
od=-l 1 GOTO 1770 

1730 IF INKEY(2)=0 AND x4<14 THEN p [21103 
rod = l 1 GOTO 1770 

1740 IF INKEY(9)=0 THEN 1810 [6333 

1750 IF INKEY(47)=0 THEN CLSlGOTO 5 [9963 
60 

1760 GOTO 1720 [3073 

1770 LOCATE 1,«4lPRINT " "lx4=x4*o [59963 


rodiPEN 1iLOCATE 1,x4 1 PRINT CHRt<18 
1)j CHRf(182)IPEN 0 

1780 FOR i=l TO SOiNEXT [8373 

1790 IF INKEYfO"* THEN 1790 ELSE 1 [8533 

800 

1800 GOTO 1720 [3073 

1810 IF x4 = 4 THEN 1930 [10393 

1820 IF x4=5 THEN RESTORE 1970iG0T0 [24193 

2070 

1830 IF x4=6 THEN RESTORE 1980:G0T0 [26403 
2070 1 1 

1840 IF x4=7 THEN RESTORE 1990iGOTO [22913 
2070 a 

1850 IF x4=8 THEN RESTORE 2 OOO 1 GOTO [26163 
2070 

1860 IF x4=9 THEN RESTORE 2010iG0T0 [21583 
2070 

1870 IF x4=10 THEN RESTORE 2020|GOT [29923 
0 2070 

1880 IF x4=lI THEN RESTORE 2O30iG0T [22373 
0 2070 

1890 IF x4*12 THEN RESTORE 2040-.GOT [23583 
0 2070 

1900 IF x4=13 THEN RESTORE 2050|G0T [32113 
0 2070 

1910 IF x4=14 THEN RESTORE 2060îG0T [19773 
0 2070 


1920 GOTO 1720 [3073 

1930 PEN OiCLSiPRINT" MINI MACH [68003 
inc a crpior* 1 pbiut " - 


--* i PR INT 1 PR INT "TEXTE 

î " 

1940 IF INKEYfO"" THEN 1940 [5793 

1950 INPUT AfiIF Af="" THEN 1570 EL [34693 
SE PRINT # 8 ,AtiGOTO 1950 
1960 GOTO 1570 [3853 

1970 DATA "BUFFER VIDE",2,27,64 [13513 

1980 DATA "ITALIQUE",2,27,52 [5863 

1990 DATA "NLB",3,27,120,1 [5383 

2000 DATA "SOULIGNE",3,27,45,1 [17533 

2010 DATA "PROP. NLO*,7,27,120,1,1, [19043 

27,112,1 

2020 DATA “GRAS" ,2,27,69 [7093 

2030 DATA "DOUBLE FRAPPE",2,27,71 [17263 

2040 DATA "CONDENSE",1,15 [14623 

2050 DATA "ELITE (MINI)",2,27,77 [11273 

2060 DATA "LARGE*,3,27,87,1 [12963 

2070 IMPf=”" [2313 

2080 CLS [913 


2090 READ C0MtiPLACE*(38-LEN(C0Mt)) [12333 

/2 

2100 PRINT TAB(PLACE)jCOMtiPRINT TA [37853 
BIPLACE)|STR INGt1 LENICOMf),154) 

2110 READ NUMiFOR 1=1 TO NUMiREAD A [31403 
(I)IIMPf=IMPt+CHRt <A(I)) 1 NEXT 
2120 PRINT "IMPRIMANTE PAS EN LIGNE [59453 
" 1 PRINT # 8 ,IMPf)ILOCATE 1,3 iPRINT * 

" 1 PRINT "Une 

touche ..." 

2130 IF INKEYf=”” THEN 2130 ELSE 15 [7163 
70 

2140 CLSiPR INTiPRINT " Patiente: S. [28333 
V.P. ..." 

2150 RUN "CATCASS" [3663 

2160 CLSiPRINT * ARRET DU PROGR (25413 
AMME" 

2170 PRINT ■ .— [ 13973 

2180 PRINTiPRINTiGOSUB 2200iIF oui= [38583 
1 THEN CLSiEND 
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Gestion de périphérique 


2190 CLSiGOTO 560 110331 

2200 PEN 62,0iCLS A2:intga=0:intdr= 137191 
OiPRINT #2," CONFIRMATION i OUI/NO 
N* 

2210 IF INKEY(8)=0 AND INTGA=0 THEN 167891 
INTGA=1:QUI=1:L0CATE 62,22,1 ! PR INT 
#2,"NON"11LQCATE 62,18,11 PAPER 62, 

1IPEN 62,0lPRlNT 62,"OUI")!INTDR=0 
2220 IF INKEV<1)=0 AND INTDR=0 THEN 180701 
INTDR=1:0UI=0 ïLQCATE 42,18,1 :PRINT 
42,"OUI"):LOCATE 62,22,11 PAPER 62, 

1iPEN 62,OiPRINT 62,"NON"|iINTGA=0 
2230 PAPER 62,3iPEN 62,0 118141 

2240 IF INKEV<91*0 THEN RETURN ELSE 11417] 
GOTO 2210 

2250 END [1101 

2260 FOR i = l TO 5|L0CATE 2,i+y1READ 144211 
a»:FOR t = l TO LEN(at):lettre»=MID» 

(at, t, 1 )11=VAL(lettre*) 

2270 IF 1 = 1 THEN b*=CHR* <214) ELSE 111189] 


IF 1=2 THEN b»=CHR«<143) ELSE IF 1= 
3 THEN bt=CHR*<215> ELSE IF 1=4 THE 
N b»=CHR»(2l3> ELSE IF 1=5 THEN b»= 
CHR»(212) ELSE IF 1=6 THEN b*=CHR»< 
138) ELSE IF 1=7 THEN b»=CHR»(140) 
ELSE IF 1=0 THEN b»=CHR»<32> 


2280 PRINT b»):NEXT:PRINT:NEXT 19411 

2290 RETURN 15551 

2300 END 11101 

2310 oui =0iCLS:CLS 62 1984] 

2320 READ titre» 18211 

2330 post=(38-LEN(titre»))/2 119381 

2340 PRINT TAB(post);titret 116841 

2350 PRINT TAB(post)|STRING»(LEN(ti 12619] 

tre»),154) 

2360 PRINT 13611 

2370 READ nenriFOR i=l TO nenriREAD 135271 

ordre»:PRINT " " ; CHR»(233); ” < —" 

jordretiNEXT 

2380 RETURN 15551 


10 INK l.OlINK 0,13:BORDER 13 113841 

20 MODE 2iPAPER OiPEN 1 115641 

30 MEMORY StlFFF 17101 

40 DEF FN CON(ADR)=P£EK(ADR+l)»256+ 117401 
PEEK(ADR) 

50 DATA BAS,BIN,SCR,ASC,21,80,00,11 16254] 
,40,00,3E,2C,CD,Al,BC,C9,21,00,20,E 
D,5B,A0,00,3E,16,CD,Al,BC,C9,t 
60 DIM TI*<3) J ADR=6«8DiFOR 1=0 TO 3i 124951 


READ TI »(I)1NEXT I 

70 READ Ctl I =6c701 18801 

80 IF C»=”*" THEN 100 ELSE POKE I,V 128241 
AL( "Sc'+C») i I«I + 11 READ c» 

90 GOTO 80 13061 

100 ' 11171 

110 PRINT " C A T C A S S " 111881 

120 PRINT * ..* 114681 

130 PRINT "EDITION |"|PRINT " 138271 


(I>:Imprimante ou (E)iEcran ? " 

140 IMP» = UPPER»( INKEV») i IF IMPtO*E 139081 
" AND IMPtO’I" THEN 140 ELSE PRINT 
IMP* 

150 IF INP*="I" THEN CAN=8 ELSE CAN 18941 
=0 

16» PRINT "Nb DE BLOCS EN ANALYSE s 143061 
";îINPUT NBBAlIF NBBA=0 THEN CLSiEN 
D 

170 PRINT:PRINT TAB(15)»PLACER L 148111 
A K7 - Puis appuyer sur PLAY" 

180 PRINT TAB(25))“APPUYER SUR UNE 134121 


TOUCHE* 

190 Ct=INKEYt:IF C*="“ THEN 190 117241 

200 ' 11171 

210 FOR NBB=1 TO NBBA 113231 

220 CALL 8,70: GOSUB 320 17231 

230 FICHt=”":TYPE»="" 13731 

240 NEXT NBB 14991 


250 PRINTiPRINT TAB(20)|"AUTRE BLOC 137531 
(Oui ou Non) ??“) 

260 Ct=LOWERt(INKEY»): IF C»<>”o" AN 127161 
D C»< >"n" THEN 260 ELSE PRINT Ct 
270 IF C»="o" THEN NB8A=1:GOTO 210 118501 

280 END 11101 

290 ' 11171 

300 ' TRAITER LE HEADER 18111 


310 ' 11171 

320 FOR I=ADR TO ADR+15:IF PEEK(IX 134001 
>0 THEN FICH»=FICH»+CHR»(PEEK(I)ïiN 
EXT I 

330 NB*=STR*(PEEK(ADR+16)) 18401 

340 IF PEEK(ADR+23)<>0 THEN ADD=FN 128381 
CON(ADR+21) 

350 IF PEEK(ADR+l7)<>0 THEN NBt=NB* 117633 
LAST" 

360 T=PE£K(ADR+18)\2:IF T>=0 AND T< 143971 
4 THEN TYPEt=TI»(T) ELSE TYPEt="... 


370 IF (PEEK(ADR+18) MOD 2)00 THEN 
TYPE»=TYPE»+" PROTECTED" 

380 LENGHTR=FN CON(ADR+19):LOCD=FN 
CON(ADR+21)iLENGHTF=FN C0N(ADR+24): 
EXEC=FN CON(ADR+26) 

390 ' 

400 ' IMPRIMER LE HEADER 
410 

420 PAPER OiPEN 1 :PRINT #CAN:PRINT 
6CAN:PRINT 6CAN 

430 PRINT 6CAN,".>FICHIER: 

"jFICH» 

440 PRINT 6can 

450 PRINT 6CAN,"ADRESSE DEBUT 
: ";ADD;TflB(32)?"fc"» HEX» <ADD,4) 

460 PRINT ACAN,"LONGUEUR TOTALE 
I “|LENGHTF;TAB(32)|"St” ( HEX» (LEN 
GHTF,4) 

470 PRINT ACAN,"ADRESSE DEXECUT. 

: " ; EXEC) TAB(32) | "St* | HEX» (EXEC,4 

) 

480 PRINT #can 

490 PRINT ACAN, "-.— >TYPEl "|T 

YPEt 

500 PRINT Acan 

510 PRINT ACAN,"NUMERO DU BLOC 
: "; NB» 

520 PRINT ACAN,"ADRESSE DE DEBUT 
1 " j LOCD: TAB ( 32) \ “St" | HEX» (LOCD , 4 

) 

530 PRINT ACAN,"LONGUEUR 

l " | LENGHTR) TAB ( 32) | *8t" ! HEX» (LEN 

GHTR,4) 

540 PRINT Acan 
550 RETURN 


142541 

162541 


11171 

19071 

11171 

140393 

124881 

110161 

148491 

141661 


149751 


110161 

129101 

110161 

127911 

146753 

149463 


110161 

15551 
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f ace aux conséquen¬ 
ces incalculables de 
leur incompétence 
notoire, les techni¬ 
ciens de la centrale 
de Tchernobyl, eurent été bien 
inspirés de se faire préalable¬ 
ment la main avec un tel logi¬ 
ciel. En effet, hormis quelques 
petites entorses faites à la réa¬ 
lité, ce logiciel de simulation 
reproduit de manière assez 
fidèle, le fonctionnement d'un 
centre de production nucléaire; 
c'est pourquoi il présente un 
intérêt à la fois ludique et péda¬ 
gogique. L 'utilisateur a le choix 
entre trois options; 

-la première lui laisse une 
entière liberté, quant à ce qu'il 
désire réaliser en salle de 
contrôle, 

- la seconde le soumet à des 
ordres provenant d'un centre 
directeur: « Le Dispatching 
National », 

- la troisième le met en face 
d’accidents (cinq types dont un 
aléatoire) qu'il s'efforcera de 
maîtriser le mieux possible. 
Dans tous les cas, sont mis à 
sa disposition: 

- une console qui regroupe tou¬ 
tes les commandes de la salle 
de contrôle, 

- un Poste Sécurité Radiopro¬ 
tection permettant de vérifier 
par le détail, l'état de la cen¬ 
trale (et éventuellement 
d'intervenir), 

- un schéma de la centrale où 
clignotent les organes les plus 
touchés. 

Des systèmes de sécurité ren¬ 
seigneront l'utilisateur sur les 
risques et dégâts potentiels 
résultant de certainesmanoeu- 
vres. Celui-ci restera malgré 
tout responsable des décisions 
à prendre. Une session se ter¬ 
minera toujours par un bilan 
destiné à évaluer l'ampleur des 
dégâts (matériels et humains) 
et noter le joueur en 
conséquence. 


Sauvegarde 

Sauvez le premier listing sous 
un nom de votre choix (par 
exemple « NUCLEAR »), puis le 
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listing de codes hexadécimaux 
par le programme Amsaisie 
(reportez-vous à son mode 
d'emploi). Spécifiez 8000 
comme adresse de début et 
sauvez le fichier binaire par 
l’option «S» sous le nom 
u CODE-REA ». Si vous ne 
souhaitez pas saisir en une 
seule fois la totalité des codes, 
morcelez votre travail en 
créant plusieurs fichiers 
(C0DE1, C0DE1, etc.). Ceux-ci 
devront ultérieurement être 
chargés à la suite après un 
MEMORY &7FFF et sauve¬ 
gardés ainsi dans un fichier 
unique: 

SA VEXODE-REA m ,b,â8000,i 
410 

Sauvez finalement le pro¬ 
gramme principal sous le nom 

« NUCLEAR1 ». 

Fonctionnement 
d’une centrale 
nucléaire 

Une tranche de centrale 
nucléaire se compose d'une 
enceinte de confinement (1), 
abritant l'ensemble du circuit 
primaire et protégeant l'exté¬ 
rieur (à la façon d’une cocotte- 
minute en cas de surpression). 
La cuve du réacteur (2), abritée 
dans une piscine (3), contient 


l'uranium (le combustible). Une 
réaction nucléaire s'y produit, 
contrôlée par deux paramètres: 

- les barres de contrôle (4), glis¬ 
sant dans des canaux, la frein¬ 
ent lorsqu'elles sont abais¬ 
sées dans le réacteur. 

- Le taux d'acide borique qui la 
freine lorsqu il est élevé. Ladite 
réaction produit de l'énergie 
calorifique servant à chauffer 
l'eau sous pression du circuit 
primaire (5). Ce circuit est mis 
sous pression grâce au pressu- 
riseur (6), afin d'éviter que l'eau 
ne se transforme en vapeur, 
même à 300°. La circulation 
est assurée par la pompe 1 (7). 
L'eau chaude du circuit pri¬ 
maire va alors passer dans 
l'échangeur de chaleur (8), où, 
elle va chauffer l'eau d'un 
deuxième circuit: le circuit 
secondaire (9). 

Cette eau se transforme en 
vapeur dans le générateur de 
vapeur (10). Cette vapeur, 
entraîne à son tour une turbine, 
puis un alternateur produisant 
l'énergie électrique; c'est la 
production (chiffrée en MW, 
jusqu’à 1400). La vapeur passe 
ensuite dans un condenseur 
(11), où elle se condense à nou¬ 
veau en eau (car refroidie par 
de l'eau provenant du fleuve) 
pour retourner au générateur 
et ainsi de suite (bouclage). La 


pompe 2 (12) sert bien entendu 
à la circulation de l'eau du cir¬ 
cuit secondaire. 

Fonctionnemen t 
du programme 

1 - Salle de contrôle 

Met à votre disposition , toutes 
les commandes et données 
physiques (températures, pres¬ 
sions, débits, radioactivités, 
etc.) qui vous seront utiles. 
Figurent aussi, les cadres 
réservés aux ordres du dispat¬ 
ching et aux avertissements- 
sécurité. A ce propos, voici la 
syntaxe particulière d'un mes¬ 
sage « sécurité » : 

ABC-f-A est une abréviation: 

■ D.P. (Dégradation Possible), 

• R.I.D.(Risque Important de 
Dégradation), 

- D.T.I. (Dégradation Très 
Importante). 

B est l'organe concerné : 

- Cl RI (circuit primaire), 

• CIR2 (circuit secondaire), 

■ PM PI (pompe 1), 

- etc. 

C est la cause: exemple: 
-R.I.D. CIR1 / Vapeur; risque 
important de dégradation du 
circuit primaire, dû à la forma¬ 
tion de vapeur (N.B.: pression 
trop faible). 





Nuclear alert 


Les commandes disponibles 
sont actionnées par des tou¬ 
ches précises. Le réglage d'un 
paramètre s'effectue par tes 
touches fléchées haut et bas 
(montée, descente). Tous ces 
ordres sont soumis évidem¬ 
ment aux états des organes 
qu’ils concernent. 

■ 1 : fonctionnement pompe 1, 

■ 2 : fonctionnement pompe 2, 

■ B : action sur tes barres de 
contrôle, 

■ T : action sur le taux d'acide 
borique. 

■ P : fonctionnement pressuri- 
seur, 

■ R : fonctionnement pompe 
condenseur. 

Nota : « D.E.S. » désigne la dif¬ 
férence de température entre 
l'entrée et la sortie du conden¬ 
seur. Ceci permet d'évaluer 
son efficacité. 

■ U : autorise, en cas d’urgen¬ 
ce. l’enfoncement rapide et 
forcé des barres dans le réac¬ 
teur. Cette procédure com¬ 
porte des risques de dégrada¬ 
tion. 

■ S (maintenu enfoncé) : 
demande de fin de session. 

■ COPY : affichage du schéma 
de la centrale. 


■ ESPACE : passage en Pos¬ 
te Sécurité Radioprotection 

2 ■ Poste Sécurité Radiopro¬ 
tection 

Donne les états de tous les 
organes de ta tranche. 100 cor¬ 
respond à un état intact et 0, à 
une destruction complète ou à 
un état entravant gravement le 
fonctionnement. 

Le cadre « ACTIVITE » signale, 
entre autres, divers niveaux de 
contamination (piscine, air à 
l'intérieur de l'enceinte, rejets 
atmosphériques et aqueux) en 
becquerels (activité réelle), 'en 
rems ou miiirems par heure 
(correspondant à l'influence 
exercée en une heure, sur un 
être humain). 

-Le cadre « COMPUTER » 
donne l’état courant de la cen¬ 
trale et des alentours: E.G.C. 
(Etat Général Centrale), niveau 
d'alerte, ouvriers actifs ou non, 
population évacuée/contami¬ 
née. etc.). Là encore, quelques 
commandes sont disponibles: 

■ COPY: idem (schéma 
centrale). 

■ ESPACE: retour salle de 
contrôle. 

■ P: demande d'évacuation de 
la population (celle-ci n'est 


effective que quelque temps 
plus tard...), 

■ B: bilan de l’activité ouvrière. 
Cette commande affiche les 
différents organes où sont 
potentiellements réalisables 
des interventions humaines. 
Pour chacun d'eux peut être 
affiché: 

. lmp.: intervention impossible 
. Poss xx: intervention possible 
avec xx ouvriers 
. Occ xx: intervention en cours 
avec xx ouvriers. 

Le bilan reste affiché en main¬ 
tenant « S » appuyé. 

■ O: intervention ouvriers. 
Sélectionnez l'organe con¬ 
cerné en appuyant sur la lettre 
correspondante. Si l'interven¬ 
tion est déjà en cours, vous 
aurez la possibilité de l'annuler 
(et de récupérer l'effectif). 
Une intervention ouvriers per¬ 
met de remettre en état un 
organe défectueux. Elle n'est 
bien sûr possible que si les con¬ 
ditions (pression, radioactivité, 
température) te permettent. Si 
celles-ci deviennent défavora¬ 
bles en cours d'intervention, 
les ouvriers affectés à la tâche 
seront signalés blessés et ne 
pourront rejoindre que petit à 
petit les effectifs disponibles. 


3 ■ Diverses notes 

La température du circuit pri¬ 
maire (donc en bout de chaîne, 
la production électrique), est 
dans une certaine mesure liée 
au débit de ce même circuit. En 
effet, plus l'eau stagne, plus sa 
température s'élève au contact 
de l'uranium en fission. Le 
réglage de la pompe 1 et de la 
pression, détermine avec pré¬ 
cision la production. En fait, le 
dispatching admet une marge 
de plus ou moins 10 MW (à 
maintenir pendant le temps que 
dure le bip-bip). 

Mise en divergence, signifie 
faire démarrer la réaction en 
chaîne (lever des barres, 
baisse du taux d'acide, fonc¬ 
tionnement des pompes, pres¬ 
surisation, etc.) et la production 
de vapeur dans le générateur. 
Toute action sur un organe 
principal du circuit secondaire 
(pressuriseur, barres, bore), 
n’entraîne pas, on s'en doute, 
une modification brutale des 
paramètres. Une certaine iner¬ 
tie (montées ou descentes pro¬ 
gressives), rend la simulation 
réaliste... et le jeu plus ardu. 
Donc, procédez avec méthode 
et sans précipitation. 

Lionel Paquln 


10 ' **************************** [1164] 

20 ' * * C175] 

30 ' * NUCLEAR ALERT * C1140] 

40 ' * -Présentation- * [1713] 

50 ■ » » [1753 

60 ' **************************** [1164] 

70 ' [1173 

80 DEFINT a-xiINK 0,0:INK 1,0s INK 2 [39063 

,11:INK 3, 11:BORDER 0:M0DE 1 :PEN 1 
90 ENV 1,15,-1,4>ENV 2,15,-1,12:ENT [2689] 
-1,4,1,1,4,-1,1 

100 PEN 2:L0CATE 11,10: PRINT CHRK1 [46473 
64)!” L. PAQUIN - 1987"j:PEN 1 
110 1=90:x4="Nuclear Alert": : 1=2:: 2 [39703 
=3:GOSUR 990:INK 1,24 

120 FOR x = i T0 17:INK 2, (RND*26): IN [79593 

K 3, (RND*26) :L0CATE 40,25:CALL !<BD1 

9:PRINT" " : SOUND 1 ,1000/x,4,15:NEX 

T:INK 3,11 : INK 2,11:G0SUB 740 

130 RESTORE:G0SUB 920 [16463 

140 G0SUB 390:SYMBOL AFTER 242:SYMB [86173 

0L 254,192,64,193,67,193,24,27:SYMB 

0L 255,1,1,229,1,224,48,192,0:SYMB0 

L 253,0,24,36,36,24,0,0,0 

150 MODE 1 : INK 1,0:INK 2,2:INK 3,26 [71513 

:i 1 = 2: 12=3:1 =280:x9="Le programme 1 ': 

G0SUB 960:xt=“se charge”:1=200 
160 z=HIMEN-1031:MEMORY HIMEM-1032: [58163 
G0SUB 960:INK 1,18:L0AD "!code-rea. 
bin”,z:RUN “Inuclearl" 

170 ' [1173 

180 ’DATAs musique de présentation [21103 
190 ' [1173 


200 DATA 213,1,253,1,338,1,213,2,25 


3.2 

210 DATA 338,1,213,1,253,1,338,1,21 

3.2.253.2 

220 DATA 338,1,225,1,268,1,338,1,22 

5.2.268.2 

230 DATA 338,1,225,1,268,1,338,1,22 
5 2 268 2 

240*DATA 268,1,253,1,301,1,379,1,25 

3.2.301.2 

250 DATA 379,1,253,1,301,,1,379,1,25 
3,2,301,2,0,3 

260 DATA 268,2,268,2,268,2,253,1,22 

5.2.225.2.213.1.190.1.213.1.225.2 
270 ' 

280 ‘Les memes lignes que 200 a 250 
290 ' 

300 DATA 213,1,253,1,338,1,213,2,25 

3.2 

310 DATA 338,1,213,1,253,1,338,1,21 

3.2.253.2 

320 DATA 338,1,225,1,268,i,338,1,22 

5.2.268.2 

330 DATA 338,1,225,1,268,1,338,1,22 

5.2.268.2 

34û'DATA 268,1,253,1,301,1,379,1,25 

3.2.301.2 

350 DATA 379,1,253,1,301,1,379,1,25 
3,2,301,2,0,3 


360 ' 

370 DATA 268,2,268,2,268,2,253,1,22 
5,2,225,2,213,1,190,1,213,1,225,2,2 


53,4 


[12893 

[19153 

[17763 

[17763 

[20523 

[14023 

[30603 

[1173 

[2504] 

[1173 

[12893 

[19153 

[17763 

[17763 

[20523 

[14023 

[1173 

[32673 
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380 DATA 255,255 [3743 

390 ' [1173 

400 ' Mode d'emploi C14713 

410 ' Cl 173 

420 PEN 2: LOCATE 9,24:PRIflT "Presse [53593 
z une touche s. v. p. * ; iCALL &8B04 
430 PEN 1 : INK 1,18 [8443 

440 MODE 2 [5133 

450 PRINT CHRf(22)+CHR4(1)iE4=CHRt( [51453 
221+CHR*(01+SPACE*(15)+CHRT(22)+CHR 
t(l) 

440 FOR c = 2 TO 32 [7473 

470 LOCATE C,9iCALL S,8D19iPRINT CHR [8041 3 
4(22)CHR4(0)" I F R A I N"CHRt<22) 


CHRt <1)J L=C/4 +1 1 LOCATE 34,LlCALL 
DI9:PRINT “ N 0 M T 0 S”:LOCATE 34, 
L-liPRINT EtiNEXT c 

480 FOR X=1 TO 7iL0CATE 80,25iCALL [25973 
IBDl9:PRINT* * 1 NEXT: LOCATE 10,10 
490 FOR X = -l TO 1:M0VE 244+X,392,1: C73743 
DRAWR 134,0:DRAWR 0,-32:DRAWR -134, 

OlDRAWR 0,32iNEXT X!PRINT CHR*(22) + 

CHR4(0) 

500 RESTORE 540:F0R x = 5 TO 23:READ [11433 
a* 

510 IF LEN(A4) MOD 200 THEN A4=A4+ C15753 

N M 

520 M=LEN(A4)/2:C=LEN(A4)+1:F0R K=1 [48893 
TO MlLOCATE K,X:PRINT MID4(A4,K,1) 

; :LOCATE C-K,X:PRINT MID4(A4,C-K,1) 

IlNEXT K,XiGOSUB 730 

530 GOTO 730 [4273 

540 DATA ■ Skyworth î la centrale [79823 
nucléaire la plus moderne au monde 
...et aussi la plus" 

550 DATA "sujette a toutes sortes d [44543 
'incidents et accidents..." 

540 DATA " “ [2093 

570 DATA " Voici donc votre tache [77193 
■ seul et abandonne dans votre sal 
le de contrôle, vous" 

580 DATA "avez a veiller au bon fon [78883 
ctionnement de la tranche 1. A cet 
effet, vous disposez" 

590 DATA "de toutes les commandes n [82803 
ecessaires i barres de contrôles, i 
njection d'acide* 

400 DATA "borique, pompes des circu [57033 
its primaire et secondaire, pressur 
iseur etc... etc..." 

410 DATA " Naturellement, vous av [77083 
ez a respecter les instructions fou 
rnies par le centre* 

420 DATA "de dispatching national, [45993 
qui vous communiquera divers ordres 

430 DATA " " [2093 

440 DATA " Enfin, vous aurez très [87403 
certainement a f.aire face a de nom 
breux problèmes, que" 

450 DATA "vous devrez résoudre en e [41453 
vitant, si possible, de rendre le r 
eacteur incontro-" 

440 DATA "labié, de faire exploser [72333 
le générateur de vapeur, de polluer 
le fleuve ou " 

470 DATA "d'avoir a ordonner l'evac [90343 
uation de la population dans un ray 
on de 50 km...!" 

480 DATA " " [2093 


490 DATA “ Les differents tableau 
x de la salle de contrôle vous comm 
uniqueront tous les* 

700 DATA "paramétrés physiques dont 
vous aurez besoin. 'Quelques' syst 
emes de sécurité” 

710 DATA "vous avertiront en cas de 
danger... Mais seule votre compete 
nce pourra sauver le" 

720 DATA "Monde d'une éventuelle ca 
tastrophe nucléaire..." 

730 SOUND 1, lOOlLOCATE 32,25iPRINT 
*- Pressez ENTER -*) iNHILE INKEYU8 
)=-l:WEND:RETURN 
740 ' 

750 ' Dessin centrale nucléaire 
740 1 


[82003 


[74873 


[53343 


[43493 

[42853 


[1173 

[14413 

[1173 



770 INK 1,0:MOVE 0,40,1:DRAWR 440,0 
780 MOVE 0,70:DRAW 132,70:M0VE 222, 
84:DRAW 344,84 

790 MOVE 128,132:DRAW 224,132:DRAW 

224,144:DRAW 128, 144: DRAW 128,132 

800 MOVE 344,204:DRAM 344,40 

810 MOVE 284,284: DRAW 384,204 

820 MOVE 344,204:DRAW 440,204 

830 MOVE 222,132:DRAW 222.40:MOVE 1 

32,132:DRAW 132,40 

840 FOR c = 222 TO 344 STEP 14:M0VE c 

,40,1:DRAWR 0,44:NEXT c 

850 DATA 240,84,252,104,244,128,278 

,154,284,188,288,204,288,242,284,28 

4 

840 RESTORE 850:READ a,b:M0VE a,b,1 
: FOR' x = 1 TO 7 : READ a, b : DRAW a,b 
870 NEXT:MOVE 384,284:DRAW 382,242: 
DRAW 382,204 

380 1=70:ra=SQR((132-177)"2+(144-1) 
A 2)iDEGsFOR an=42 TO 120:pc = 177*ra * 
COS(an) 

890 IF NOT(p c <132 OR pc>222) THEN P 

LOT pc,I+ra*S!N(anI,1 

900 NEXT:GOSUB 1040 

910 RETURN 

920 ' 

930 ' Routine musicale., 

940 ' 

950 READ A,B:IF A=255 THEN RETURN E 


[13401 

[23593 


(37273 

[8353 
[11033 
[9813 
[2881 3 

[32941 

[19413 


[23521 
[2271 3 
[57203 


[33403 

[9073 

[5553 

[1173 

[20943 

[1173 

[8041 3 
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Nuclear alert 


LSE IF A=0 THEN SOUND I,0,B,0:SOUND 
2,0,6,OiGOTO 950 ELSE SOUND l,fl,B* 
17,15,1,1s SOUND 2,A*l.01,6*17,15,1, 
1 : SOUND 5,0,2,OiGOTO 950 


960 ’ C1173 

970 ' Affichage grandes lettres 19023 

980 ■ 11173 

990 c = LEN(>:*l*32:c = <440-c>/2-42:lx = 131943 

1 

1000 FOR k=l TO LENIxt) 114653 

1010 LOCATE 1.1iPRINT MID*(« t ,k,1) 110013 

1020 FOR 1i=399 TO 399-15 STEP -2 114933 

1030 FOR co=l TO 15 STEP 2 19423 

1040 IF TEST <co,1i)< >0 THEN MOVE c+ 136273 
2*(co+k*lf>),l:DRAWR 4,0,iliM0VER -2 
,-2,i2îDRAMR -4,0 

1050 NEXT CD! 1=1-4:NEXT li:l=lx:NEX 128993 

T ksLOCATE 1,1sPRINT " ”:RETURN 

1060 ' C1173 


1070 ’ ORAGE 15193 

1080 • 11173 

1090 SOUND 2,4000,120,15,2,,31 : BORD 198553 
ER 26: INK 0,26:CALL «<BD 19:FOR 1 = 1 T 
0 10:NEXT 1 : BORDER 0:INK 0,0:WHILE 
SS(2)>=128:WEND:FOR 10=1 TO 100:NEX 
T:INK 1,24 

1100 SOUND 2,4000,30,15,,,25:B0RDER 1115123 
26: INK 0,26:FOR 1 = 1 TO 6:CALL-!<8D1 
9:NEXT I::INK 0,0:80RDER 0:WHILE SS 
(2)>=128:WEND:SOUND 2,4000,120,15,2 
,,31 :GOSUB 1140:WHILE SS12)>=128:WE 
ND:RETURN 

1110 ' 11173 

1120 ' SIGLE DE LA CENTRALE 113343 

1130 ■ 11173 

1140 PLOT 560,170,2:DRAWR 15,0:DRAW 176003 

R 6,20:DRAWR 6,-40:DRAWR 6,30:DRAWR 
2,-8:DRAWR 4,14:DRAWR 6,-30:DRAWR 
4,15:DRAWR 15,0:RETURN 


BOOOîOB 

B6 

04 

B2 

OC 

B7 

04 

01 : BF 

8008:0F 

B1 

OF 

A7 

12 

5C 

07 

4 B : BE 

8010:13 

11 

07 

01 

13 

5D 

07 

01:34 

8018:15 

57 

07 

3F 

16 

18 

07 

01:80 

8020:16 

58 

07 

01 

IA 

55 

04 

33: BC 

8028:IA 

6 F 

04 

OF 

18 

5E 

07 

01 : C5 

8030: IC 

57 

OA 

2E 

IC 

6 B 

OA 

OD: F9 

8038: 1D 

29 

OA 

02 

1D 

6 C 

OA 

03: AO 

8040:1E 

41 

01 

16 

1E 

6 C 

OA 

02: CC 

8048: 1F 

27 

OA 

02 

1F 

6 C 

OA 

01:80 

8050:21 

30 

03 

04 

21 

3F 

03 

04:8F 

8058:21 

71 

02 

2D 

23 

18 

07 

01 : DC 

8060:23 

30 

03 

04 

23 

3F 

03 

04: A3 

8068:23 

71 

02 

2D 

24 

10 

09 

02: EA 

8070:24 

IA 

09 

02 

25 

OE 

09 

01:76 

8078:25 

18 

09 

01 

25 

30 

03 

04: 9E 

8080:25 

3F 

03 

04 

25 

71 

02 

2D: 30 

8088:26 

16 

02 

04 

27 

OE 

09 

01:89 

8090:27 

IB 

09 

01 

27 

30 

03 

04 : BA 

8098:27 

3F 

03 

04 

27 

71 

02 

2D:4C 

80A0:28 

10 

09 

02 

28 

IA 

09 

02 : BO 

80A8:29 

18 

09 

01 

29 

30 

03 

04 : D3 

80B0:29 

3F 

03 

04 

29 

71 

02 

2D: 68 

80B8:2B 

30 

03 

04 

28 

3F 

03 

04 : OB 

8 0 C 0: 2 B 

71 

02 

2 D 

2 D 

27 

OA 

02: 6B 

80C8:20 

6 C 

OA 

01 

2E 

41 

01 

16:72 

8000:2E 

6 C 

OA 

02 

2F 

29 

OA 

02: 5A 

80D8:2F 

6 C 

OA 

03 

30 

55 

OA 

2C : 88 

80E0:30 

57 

07 

01 

30 

6 B 

OA 

OD: Al 

80E8:31 

58 

07 

01 

32 

55 

04 

33: B7 

80F0:32 

6 F 

04 

OF 

35 

77 

OD 

14 : F1 

80F8:36 

63 

OD 

01 

36 

78 

OD 

01 : DB 

8100:37 

61 

OD 

03 

3A 

61 

OD 

03: D4 

8108:3B 

63 

OD 

01 

38 

78 

OD 

01 : F6 

8110:3C 

77 

OD 

14 

3D 

A7 

OC 

23:78 

8118:3E 

84 

OC 

04 

3E 

A9 

oc 

01:5F 

8120:3F 

80 

OC 

03 

40 

58 

oc 

01:14 

8128:40 

5E 

OC 

01 

40 

7D 

oc 

02:1F 

8130:41 

57 

OC 

05 

41 

7B 

oc 

1 D: 3F 

8138:42 

AD 

OC 

01 

43 

C4 

08 

16: DA 

8140:44 

C5 

08 

01 

45 

58 

OC 

08:84 

8148:46 

58 

OC 

08 

48 

88 

08 

OD: 93 

8150:49 

AD 

OC 

01 

49 

BC 

08 

01 : E2 

8158:4A 

57 

OC 

05 

4A 

6 A 

OC 

OC: 57 

8160:4A 

7B 

oc 

09 

4B 

58 

OC 

01 : 6B 

8168:48 

5E 

oc 

01 

48 

72 

08 

01:65 

8170:43 

70 

oc 

02 

4C 

80 

OC 

03 : A2 

8178:4D 

84 

oc 

04 

4D 

A9 

OC 

01 : DD 

8180:4E 

A7 

oc 

23 

4F 

18 

07 

01:94 

8188:4F 

58 

07 

01 

50 

57 

07 

3F»A5 

8190:52 

12 

07 

01 

52 

5D 

07 

01:34 

8198:53 

5C 

07 

4A 

56 

68 

OF 

5E: 44 

81A0:56 

B 1 

OF 

3D 

59 

B 7 

04 

01:89 


81A8: 

5A 

68 

04 

64 

5A 

86 

04 

42: A9 

81 BO: 

5D 

6 B 

08 

01 

5E 

6 A 

08 

5D:2F 

81B8: 

5F 

OD 

08 

01 

60 

71 

08 

01:88 

81 CO : 

61 

7 0 

08 

5D 

62 

13 

08 

01 : F5 

81C 8 : 

68 

51 

08 

36 

70 

OA 

06 

03 : C6 

81 DO: 

70 

4 A 

06 

35 

70 

A2 

08 

2A : 8A 

81D8: 

73 

OA 

06 

03 

73 

22 

06 

OD: 87 

81EO : 

73 

33 

06 

OB 

73 

44 

06 

OB: EO 

81E8: 

73 

92 

05 

07 

76 

95 

05 

OE: 98 

81F0: 

79 

98 

05 

15 

7 A 

OC 

OE 

02:32 

81F8: 

7A 

14 

OE 

02 

7A 

52 

03 

01 : EC 



8200:7A 

78 

08 

01 

7 A 

A3 

08 

01 : A3 

8208:7A 

BC 

08 

01 

78 

09 

OE 

02: 5D 

8210:7B 

15 

OE 

01 

7B 

18 

08 

01 : DO 

8218:7B 

77 

08 

25 

78 

BB 

08 

18:0F 

8220:7C 

07 

OE 

01 

7C 

18 

OE 

03: D9 

8228:7C 

IA 

08 

01 

7C 

9C 

05 

1E: 84 

8230:7D 

10 

06 

04 

7E 

07 

OE 

01 : DD 

8238:7F 

08 

OE 

01 

7F 

18 

OE 

03: F8 

8240:7F 

IA 

08 

01 

7F 

AO 

05 

25: AD 

8248:80 

OC 

OE 

04 

80 

14 

OE 

04 : OE 

8250:80 

18 

08 

01 

80 

C5 

08 

01 : C4 

8258:81 

10 

OE 

04 

81 

77 

00 

25: A2 

8260:81 

C4 

08 

21 

82 

52 

08 

01: 2D 


8268:82 

78 

08 

01 

82 

AO 

05 

25:39 

8270:82 

A3 

08 

01 

85 

AO 

05 

25:6F 

8278:87 

8 F 

05 

02 

88 

8 F 

05 

02:35 

8280:89 

22 

06 

IB 

89 

33 

06 

08: 9B 

8288:89 

44 

06 

OB 

89 

8 F 

05 

02:07 

8290:8A 

8 F 

05 

02 

8 B 

8 F 

05 

02:53 

8298:8C 

4A 

06 

43 

8 C 

8 A 

08 

12:69 

82A0:8C 

8 F 

05 

02 

8 C 

A2 

08 

10: 8A 

8 2 A 8: 3 D 

88 

08 

01 

8 D 

8 F 

05 

02: 6E 

82B0:8D 

92 

08 

01 

8 E 

8 F 

05 

02: 7E 

8288:8F 

8 F 

05 

02 

90 

8 F 

05 

02:85 

82C0:91 

51 

08 

36 

91 

8 F 

05 

02:89 

82C8:92 

8 F 

05 

02 

93 

8 F 

05 

02:98 

82D0:94 

8 F 

05 

02 

95 

8 F 

05 

02: A7 

82D8:96 

8 F 

05 

02 

97 

8 F 

05 

02: 83 

82E0:FF 

59 

04 

04 

4D 

55 

OA 

OF: 7D 

82E8:45 

79 

OC 

08 

19 

23 

10 

07:8F 

82F0:OF 

51 

11 

07 

27 

79 

12 

08: A4 

82F8:16 

22 

17 

0 7 

OB 

4E 

17 

07:47 

8300:24 

6 E 

IB 

08 

02 

7A 

IB 

08: D7 

8308:05 

87 

18 

08 

06 

90 

18 

08: F3 

8310:02 

31 

22 

04 

16 

88 

22 

06: B2 

8318:14 

28 

24 

OA 

OA 

88 

28 

06: C8 

8320:14 

2D 

2 B 

01 

OE 

2B 

31 

01: 7B 

8328:OA 

88 

33 

06 

14 

2B 

34 

01 : EA 

8330:OA 

2B 

37 

01 

OA 

88 

39 

06: Fl 

8338: 14 

28- 

3A 

01 

OA 

2D 

41 

01 : AE 

8340:OE 

88 

44 

06 

14 

88 

4A 

06:92 

8348: IA 

43 

51 

OC 

01 

49 

51 

OC: 2C 

8350:01 

79 

51 

08 

OD 

90 

51 

08:9C 

8358:00 

18 

58 

07 

04 

3F 

58 

07:04 

8360:OD 

4E 

58 

07 

02 

IA 

5D 

07:1D 

8368:06 

37 

5D 

07 

06 

3F 

5D 

07:35 

3370:05 

51 

5D 

07 

05 

44 

5E 

OC: 60 

8378:01 

40 

5E 

OC 

01 

5C 

68 

08: 7E 

8380:11 

1F 

6 F 

04 

04 

31 

6 F 

04: 4E 

8388:04 

5F 

71 

08 

13 

3A 

78 

OD: B9 

8390:03 

79 

78 

08 

08 

88 

78 

08:22 

8398:08 

79 

A2 

08 

08 

88 

A2 

08:83 

83A0:08 

41 

81 

OF 

31 

55 

B1 

OF: 72 

83A8:08 

41 

B 7 

04 

34 

58 

87 

04:79 

83B0:OE 

79 

BC 

08 

2F 

7F 

C5 

08: F9 

8388:3A 

FF 

7D 

06 

OE 

26 

OD 

09:41 

83C0:7C 

OE 

06 

7E 

OE 

06 

29 

10: 9E 

83C8:09 

25 

14 

02 

27 

14 

02 

26: F2 

83D0:1B 

09 

20 

25 

OA 

2C 

25 

OA: 21 

83D8:1E 

27 

OA 

2E 

27 

OA 

44 

50: 9D 

83E0: OC 

47 

50 

OC 

IB 

57 

OA 

31 : BF 

S3E8:5E 

OA 

4 B 

6 A 

OC 

3F 

AA 

OC: 89 

83F0: 4C 

AA 

OC 

40 

AB 

OC 

4B 

AB: 62 

83F8 : OC 

41 

AC 

OC 

4A 

AC 

OC 

43: C5 

8400:AD 

OC 

48 

AD 

OC 

FF 

00 

00: 3D 

8408:00 

00 

00 

00 

00 

00 

00 

00: 8C 


21 





Nuclear alert 


1 a»**»*»*»»#********»*»*»*** 

2 ' * ♦ 

3 • « NUCLEAR ALERT * 

4 ' * - Programme principal - * 

5 ' * « 

b ' MtHMtlItHttltttttMtttt 

7 • 

S GOSUB 669 

9 MOVE 0,399,1 !DRAWR 639,0:DRAWR 0, 
—399IDRAWR -639,0: DRAWR 0,399 

10 WINDOW #0,2,39,2,24 

11 PEN 1 !PRINT TAB<9);"Bienvenue a 
Skyworth ! "sPRINTsINK 3,11sPEN 3 

12 PRINT “ Avant d'entrer en Salle 
de Contrôle, veuilles décliner vot 

re identité !"sPRINT TAB(5)?“-> “f 

13 PEN 1 :INPUT ”",nom*:PEN 2iPEN 2 

14 y=0:x*=MID*(nom*,1,1)+ ”-"+DEC* <L 
ENtnom*),”##”):F0R x = l T0 LEN(x*):C 
ALL &BD19: IF MID*(x*,x,l)=" » THEN 
MID*(x*,x>="0" 

15 NEXT xiFOR x = l TO LEN(nom*):y=y+ 
ASCIMID*(nom*,x,1))!NEXT xix*=x*+" 
“+DEC*(y,"####")+". ”+CHR* (65+y MOD 
25)iPRINT SPACE*(7)j x*:PEN 3iPRINTs 
SOUND 1,100,-1,15,2sSOUND 2,102,-1, 
15,2:SOUND 4,98,-1,15,2 

16 PRINT " Vous pouvez a présent c 
hoisir entre plusieurs phases de co 
nduite : ”:PRINT:PEN 2 

17 PRINT " -1- Mise en divergence 

et montée en puissance libr 

es" 

18 PRINT 

19 PRINT " -2- Fonctionnement avec 


instructions Dispatching" 

20 PRINT 

21 PRINT " -3- Incidents potentiel 
s" 

22 PEN 1 : FOR X = 0 TO 2:L0CATE 3,11+3 
♦XiPRINT USING |X+I:NEXT 

23 PEN 3iPRINT:PRINT:PRINT:PRINT:PR 
INT TAB < 4 > | "VOTRE CHOIX : "pPEN 1 

24 x*="”:WHILE x*<"l" OR x*>“3":x*= 
INKEYt:WEND:PRINT x*):SOUND 1,140,3 
0,15, ,2 

25 niv=VAL(x*):SOUND 1,200,200,15,, 
3iWH1LE SQ(4)>=128:WEND:WINDOW SMAP 

0,1 

26 ' 

27 ’ Boucle Principale 

28 1 

29 GOSUB 577 

30 GOSUB 503:GOSUB 491:G0SUB 475:G0 
SUB 459 

31 IF zcentrale<22 THEN 278 

32 GOSUB 98 

33 GOSUB 391 :GOSUB 305:G0SUB 287:IF 
nivOl THEN ON niv-1 GOSUB 222,186 

34 GOSUB 36:GOSUB 98iG0T0 30 


35 ’ 

36 x=100-(100-bar)*ebar/100 

37 IF BAR2=X THEN 39:' 

INERTIE DES COMMANDES 

38 IF BAR2<x THEN BAR2=BAR2+1 ELSE 
BAR2=BAR2-1 

39 IF B0RE2=B0RE THEN 41 

40 IF B0RE2<B0RE THEN B0RE2=B0RE2+1 
ELSE B0RE2=B0RE2-1 

41 IF TPRES2=TPRES THEN 43 


11751 
111403 
126961 
11753 
C10513 
C1173 
19083 
132063 

[8453 

159093 

165891 


[22433 

159883 


[12676] 


[92913 


[82803 

[3613 

166863 

[3613 

[35303 

[53933 

[3074] 

143063 


[35723 


[1173 

112103 

[1173 

18923 

130533 

[8553 

18483 

[44863 

[25273 

[1173 

[11553 

[19473 

[32393 

[7753 

147503 

[2001 ] 


42 IF TPRES2<TPRES THEN TPRES2=TPRE [41933 


S2+1 ELSE TPRES2=TPRES2-1 

43 RETURN [5553 

44 ' [1173 

45 ' Boucle annexe SRP [20563 

46 * [1173 

47 ecran=2:GOSUB 513:GOSUB 333 [14323 


48 GOSUB 491 :GOSUB 475:GOSUB 459:G0 [26243 
SUB 391 

49 GOSUB 36: IF zcentrale<22 THEN 27 [18933 
8 

50 IF niv=2 AND (1 MOD 10=0 THEN pn [22463 
t=pnt-l: SOUND 1,100,2,15 


51 IF niv=3 THEN GOSUB 186 [5453 

52 GOSUB 527: IF fl MOD 2=0 THEN GOS [25233 
UB 287:GOSUB 533 

53 GOSUB 305 [10153 

54 IF fl MOD 8=0 THEN GOSUB 333 [12223 

55 x*=UPPER*(INKEYt): IF x*=”" THEN [30373 
48 

56 IF x#=" " THEN ecran = !:G0T0 26 [11513 

57 IF x*="0" THEN 62 [13313 

58 IF x*=CHR*(224) THEN GOSUB 630:e [39723 
cran=2:GOSUB 513:G0T0 48 

59 IF x*="B“ THEN 75 [4793 

60 IF x*="P" THEN 84 [12933 

61 GOTO 48 [4023 

62 ’ Requete interv, ouvriers (6443 

63 WINDOW SWAP 0,1:CLS:PEN 3:PRINT [6307] 

" INTERVENTION OUVRIERS":PRINT 

64 PEN 2:PRINT ”pmp";:PEN 1 : PR I NT " [105793 
1 ”j: PEN 2: PRINT " pmp“;:PEN 1 : PRINT 


"2 C"i:PEN 2:PRINT ”ond”::PEN 1 s PR 
INT “G" j : PEN 2:PRINT "ene "pPEN 1: 

PRINT ”B”; :PEN 2:PRINT “ore C";:PEN 
1 :PRINT "i"; :PEN 2:PRINT "r“i:PEN 
2: PRINT USING 11 R ” ; ” 1 Ci";:PEN 1: 

65 PRINT *r"|:PEN 2:PRINT *2 “; :PEN [53113 
1 :PRINT ”P“;:PEN 2:PRINT "ress” 

66 x*="":x=0:WHILE x=0:x*=UPPER* ( IN [18023 
KEY*) 

67 IF x*="" THEN x*=" " [9653 

68 x=INSTR("12CGBRPI",xt):WEND:x=x- [27123 
1 

69 PRINT:PEN 1:PRINT * ";ouv*(x) [24623 

i 11 : ” : PEN 2: f 1=0 

70 IF ouv(x)>0 AND ouv(x)<128 AND o [48453 
uvfx)>disp THEN GOSUB 679:PRINT "Ma 

nque d ' ouvr.": GOTO 74 

71 IF ouv(x)>128 OR (x=7 AND cirl<2 [5494] 
0) THEN GOSUB 676:PRINT ”0p. IMPOSS 

IBLE": GOTO 74 

72 IF ouvtxXO THEN GOSUB 676:PRINT [129563 
"Déjà en cours":PRINT " ANNULATI 

ON (0/N) ? ”: :WHILE x*<>"0" AND 

x*< >"N“: X*=UPPER*(INKEYt)iWEND:PR I 
NT x*î: IF x*="N" THEN 74 ELSE GOSUB 
677:ouv(x)=-ouv tx):disp=disp+ouv(x 
):occ=occ-ouv(x): GOTO 74 

73 GOSUB 677iPRINT "Oper. ORDONNEE" [63033 
:ouv(x)=-ABS(ouv(x)):disp=disp+ouv( 

x):occ=occ-ouv (x) 

74 PEN 1 :WINDOW SWAP 1,0:G0T0 48 [16163 

75 ' Bilan Ouvriers [13723 

76 WINDOW SWAP 0,1:CLS:PEN 3:PRINT [32873 
"BILAN OUVRIERS"iPEN 1 :PRINT 

77 FOR x=0 TO 7:PEN 2:PRINT ouv*(x) [26453 
i" •’ ; : PEN I 

78 IF x = 6 THEN PRINT CHR* < 8 ); [16603 

79 IF ouv(x)>128 OR <x=7 AND cirl<2 [35713 
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0) THEN PRINT "Imp.":G0T0 82 

80 IF ouvtxKO THEN PEN 3sPRINT "Oc 
c "jUSING ”tMt" ; -ouv(x) ; s PEN 1 

81 IF ouvIxDO AND ouv(x)<128 THEN 
PRINT "Pos5 "sUSING "(Mt*jouv <x); 

82 NEXT x s FOR x = l TO 4000sNEXT x:fl 
=0:PEN lsWINDOW SWAP 0,1 

83 WHILE INKEY <54)< >—1 :WENDsWHILE I 
NKEY*< :WEND:GOTO 48 

84 ' Evacuation population 

85 IF evpop=10 THEN GOGUB 676:GOTO 
48 

86 WINDOW SWAP O.lsPEN 3:CLS:PRINT 

"EVACUATION POPULATION”:PEN 

1 s PRINT: PRINT "Confirmation ?'':SOUN 
D 1,100,-1,15,2:WHILE INKEY*<>“» sWE 
ND:x t -”* s WHILE xt<>"0" AND x*<>"N": 
x*=UPPER*(INKEY*)iWEND:IF xt="0" TH 
EN evpop=l 

87 CLS:f1=4:WINDOW SWAP 0,1:G0T0 48 

88 * 

89 ' EXTINCTION LUMIERE 

90 • 

91 RESTORE 97:x=0 

92 FOR k = l TO 8 

93 INK 1,x: IF x=0 THEN x=26 ELSE x = 
0 

94 READ y.sGOSUB 96:S0UND 129,100,2, 

95 NEXT ksRETURN 

96 Z=TIME:WHI LE TIME-Z<y:WEND:RETUR 
N 

97 DATA 175,119,79,24,8,24,8,25 

98 ■ 

99 ' Commandes Salle de Contrôle 

100 ' 


101 x*=UPPER*(INKEY*): IF 
RETURN 

x*=“" THEN 

102 

13 

IF 

x*="B" 

THEN 

GOSUB 

677 : GOTO 1 

103 

24 

IF 

x*="T” 

THEN 

GOSUB 

677 : GOTO 1 

104 

34 

IF 

x*="l" 

THEN 

GOSUB 

677 : GOTO 1 

105 

42 

IF 

x*=” 2 ” 

THEN 

GOSUB 

677 : GOTO 1 

106 

50 

IF 

x$="R" 

THEN 

GOSUB 

677:GOTO 1 

107 IF x*=”P” 
677 : GOTO 158 

THEN 

GOSUB 

363:GOSUB 

108 

67 

IF 

x*="U" 

THEN 

GOSUB 

679:GOTO I 

109 

IF 

x*=CHR*(224) 

THEN 

GOSUB 630: 


GOTO 577 

110 IF x*=” " THEN GOTO 44 

111 IF X*=CHRÎ(19) THEN X=1:G0SUB 6 
78:GOSUB 676:G0T0 181 

112 RETURN 

113 ' Barres 

114 LOCATE 34,14:PEN 3:PRINT "BARRE 
S":CLS #5:PRINT #5," Contrôle des 
Barres":PRINT #5 

115 PRINT #5," Etat barres : ”;US 
ING "###";ebar 

116 PRINT #5,” Etat canaux : “sUS 
ING "###")ecani 

117 x=100-bar:y=bar:x=ecan/100«x+ba 
r:y=bar-ecan/ 100 *y 

118 bar=bar-(INKEY(0)0-1) + (INKEY(2 
> 0 - 1 ) 


I33873 

154801 

142263 

C33793 

120343 

113523 

1142283 


119033 

11173 

18123 

11173 

C 756 3 

111103 

124153 

112773 

112423 

125633 

C14473 
11173 
C15693 
C1173 
C 2996 3 

127013 

C 2279 3 

122053 

C13373 

123363 

[24093 

C1524 3 

[24223 

[9943 

[27573 

[5553 

[13313 

[64463 


[26813 

[29323 

[43723 

[14523 


119 IF bar>x THEN bar=x:GOSUB 676 

120 IF bar<y THEN bar=y:GOSUB 676 

121 MOVE 544,33+1.28*(bar+l),0:DRAW 
R 64,0:FOR k=544 TO 560 STEP 4:PL0T 

k,33+1.2B»bar,lsPLOT k+48,33+1.28» 
bar :NEXT k 

122 IF INKEY(18)0-1 THEN SOUND 1,1 
00,3,15:CLS #5:L0CATE 34,14:PEN 2s P 
RINT "BARRES": IF ecan<70 THEN ebar = 
ebar-RND*3s ecan=ecan-RND*3:G0T0 560 

ELSE 560 

123 GOTO 118 

124 ’ Injection de Bore 

125 LOCATE 34,2:PEN 3:PRINT “TAUX": 
LOCATE 36,3:PRINT "BORE":CLS #5:PRI 
NT #5,” INJECTION de BORE":PRINT 
#5:PRINT #5," Etat système: “jUSI 
NG "##*"j ebore 

126 x = ebore/2:y=0: IF bore>x THEN x = 
bore 

127 PEN 1 

128 bore=bore-(INKEY(0)<>-l)+(INKEY 
( 2 ) 0 - 1 ) 

129 IF bore>x THEN bore=x:GOSUB 676 

130 IF bore<y THEN bore=y:GOSUB 676 

131 LOCATE 36,5:CALL &BD19:PRINT US 
ING "0#"|borej 

132 IF INKEY(18)0-1 THEN SOUND 1,1 
00,3,15:CLS #5:L0CATE 34,2:PEN 2:PR 
INT "TAUX”:LOCATE 36,3:PRINT "BORE" 
:RETURN 

133 GOTO 128 

134 ’ Pompe circuit primaire 

135 CLS 45:PRINT #5," Contrôle P 
ompe 1“:PRINT #5:PRINT #5," Etat 

pompe: "jUSING ”###"•,pmp 1 :x=100-fp 
1:x*fpl+pmpl/100*x sPEN 3:L0CATE 2,1 
0:PRINT "pmp.“:PEN 1 

136 fpl = fpl-( INKEY (0) 0-1 ) + < INKEY (2 
)<>-l) 

137 IF fpl<0 THEN fpl=0:G0SUB 676 

138 IF fp 1 >x THEN fpl=x:GOSUB 676 

139 LOCATE 9,10:CALL !<BD19:PRINT US 
ING "###"sfpl 

140 IF INKEY (18)0-1 THEN SOUND 1,1 
00,3,15:CLS #5:PEN 2:L0CAT€ 2,10:PR 
INT "pmp."sRETURN 

141 GOTO 136 

142 ' Pompe circuit secondaire 

143 CLS #5:PRINT #5," Contrôle P 
ompe 2":PRINT #5:PRINT #5," Etat 

pompe: "jUSING "###"j pmp2:x=100-fp 
2:x=+p2+pmp2/100*x:PEN 3:L0CATE 2,1 
9:PRINT "pmp.”:PEN 1 

144 f p2-f p2- ( INKEY (0) 0-1 ) + ( INKEY (2 
)<>-l) 

145 IF tp2<0 THEN Tp2=0:G0SUB 676 

146 IF [p2>x THEN fp2=x:G0SUB 676 

147 LOCATE 9,19:CALL &BD19:PRINT US 
ING "###"jtp2 

148 IF INKEY (18)0-1 THEN SOUND 1,1 
00,3,15:CLS #5:PEN 2:L0CATE 2,19: PR 
INT ”pmp. "sRETURN 

149 GOTO 144 

150 ' Pompe circuit de refroid. 

151 CLS #5:PRINT 45," Contrôle con 
denseur”:PRINT #5:PRINT #5," Etat 

système: "jUSING "ü #* 1 - 1 ;econd:x = 100 
-fpr:x=fpr+econd/100»x:PEN 3:LOCATE 
18,21 :PRINT "pmp.":PEN 1 


[14573 
[1898) 
[76963 


[60153 


[4153 

(330) 

(10266) 


[26593 

[5493 

[22533 

[29753 

(25763 

(31243 

(63943 


[4213 

12197) 

[108833 


[23133 

[8073 

121173 

[25263 

[38733 


[3893 

[23143 

[90263 


[29283 

(17633 

[20383 

[21343 

[34173 


[4053 

(30253 

[105793 
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152 fpr=fpr-(INKEY(0) 0-1 ) +(INKEY (2 [2414] 
10 - 1 ) 

153 1F f pr<0 THEN fpr=0:GOSUB 474 [824] 

154 IF f pr >x THEN fpr=x:GOSUB 474 [1239] 

155 LOCATE 24,21:CALL !<BD19:PRINT U [2405] 
SINE ”444"îfpr 

154 IF INKEY (18)0-1 THEN SOUND 1,1 [4424] 
00,3,15:CLS #5!PEN 2:L0CATE 18,21:P 
RINT "pmp.RETURN 

157 GOTO 152 [413] 

158 ' Contrôle du pressuriseur [1813] 

159 CLS #5:PEN 45,3:PRINT #5," Cont [1 1494] 
rôle pressuriseur":PEN #5,1:PRINT 4 
SsPRINT *5,“ Fonctionnement s"; US I 

NG "444";tpres:PRINT 45,"E.Res :";U 
SING ”444"jresistj: PR INT #5,” E.Pr 
es !"îUSING : près; 

140 x=200-tpres:x=tpres+resist/100* [1543] 
x 

141 tpres=tpres-(INKEY(0)<>-l) + (INK [2827] 
EY<2) 0-1 ) 

142 IF tpres<25 THEN tpres=25:GOSUB [2412] 
474 

143 IF tpresFx THEN tpres=x:GOSUB 4 [1442] 
74 

144 LOCATE 35,11:CALL &BD19:PRINT U [2724] 
SING ”444 " j tpres 

145 IF INKEY(18)0-1 THEN SOUND 1,1 [3298] 
00,3,15:CLS 45:RETURN 

144 CALL S<BD19: GOTO 141 [947] 

147 ' Tentative d'arret d'urgen [1148] 
ce 

148 IF bar<=10 THEN GOSUB 474:RETUR [1233] 

N 

149 CLS 45:PEN 45,3:PRINT 45,” Pro [4314] 
cedure d'urgence":PEN 45,1 

170 PRINT 45, "Forcement canaux barr [4257] 
es ” ; :PRINT 45:PRINT 45," Confirme 
z-vous ?”: 

171 GOSUB 475:xt= "":WHILE xt<>"0" A [5494] 
ND x$< >"N":xF=UPPERf(INKEYt) 

172 WEND:IF xt="N" THEN CLS 45:RETU [2140] 
RN 

173 z*cuve*ecan*ebar*0.00007+15:CLS [53453 
45:PRINT 45,“Probab. Réussite: ”jF 

IX ( 2 ) | ” X ” 

174 PEN 45,3:PRINT 45,Operation e [39833 
n cours...":PEN 45,1 



175 FOR x = 1 TO 10:SOUND 1,100/x,30, [5749] 
15,2,2:SOUND 2,100,30,15,2,2:SOUND 
4,100,30,15,2,2iNEXT x:FOR x=l TO 3 
500:NEXT x 

174 CLS 45:IF RND<z/100 THEN bar=0: [91433 
bar2=FIX(2)/2:GOSUB 540:PRINT 45," 
Operation REUSSIE" ELSE PRINT 45, 

“ Echec operation" 

177 IF RND«10<8 THEN PRINT 45,"- R. [2552] 
I.D. Canaux":ecan=ecan-FIX(RND+10) 

-5 

178 IF RND«10<3 THEN PRINT 45,“- D. [4420] 

P. Barres":ebar=ebar-FIX<RND*8)- 

2 

179 IF RND*10<4 THEN PRINT 45,”- D. [5347] 

P. Cuve"|:cuve=cuve-FIX<RND*8) 

180 GOTO 341 [5273 

181 * Requete pour fin de sessi [1229] 
on 

182 CLS 45:PEN 45,3:PRINT 45," VOUS [4421] 

DEMANDEZ UNE FIN DE SESSION 

•:PEN 45,1 :PRINT 45," MAINTENEZ APP 
UYE POUR CONFIRMER":x=0 

183 IF INKEY(40)<>128 THEN CLS 45:G [13313 
OTO 475 

184 x=x + l: IF x MOD 20=0 THEN SOUND C2053] 
129,120,4,15 

185 IF x<>435 THEN 183 ELSE SOUND 1 [27413 


,50,15,15:GOTO 241 

184 ’ [1173 

187 • INCIDENTS POTENTIELS [9221 

188 ' [1173 

189 IF fdl=3 THEN 219 [4333 


190 IF fd 1 =0 THEN IF hh< 900 THEN RE [55453 
TURN ELSE fd1=1ix*="Message Priorit 

aire":yf="ENTRE£ EN PHASE":z*=”NON 
PROTEGEE": GOTO 571 

191 IF RND*10<2 THEN fd=FIX<RND*5>+ [2394] 

1 ELSE RETURN 

192 MODE 2:cl=l:c2=40:11=1:12=25:GO [139923 
SUB 412:cl=2:c2=39:11=2:12=4:GOSUB 
412:12=24:11=20:cl=2:c2=39:GOSUB 41 

2:cl=2:c2=39:11=7:12=19:GOSUB 412:L 
OCATE 9,4:PRINT "ALERTE GENERALE EN 
CENTRALE AWK-OOt Skyworth -= A 
CCIDENT =-":x =4:BORDER 1 

193 PRINT CHRt(7); :GOSUB 478:L0CATE 175233 
9,22:PRINT "PRESSEZ UNE TOUCHE POU 

R REINTEGRER LA SALLE DE CONTROLE P 
RINCIPAL“:WINDOW 41,4,75,11,17 

194 IF fd=l THEN x*="ACCIDENT CIRCU [11374] 
IT PRIMAIRE" ELSE IF fd=2 THEN x*=” 
DEGRADATION MATERIAU CUVE - PISCINE 

" ELSE IF fd=3 THEN xt="ACCIDENT EC 
HANGEUR - GENERATEUR" ELSE IF fd=4 
THEN xf="DESTRUCTION ENCEINTE” ELSE 
x*=“ACCIDENT SISMIQUE" 

195 LOCATE (80-LEN<xf))72,9:PRINT x [2951] 
*:WINDOU SWAP 0,1:CLS 

194 ON fd GOSUB 199,202,205,208,211 [72483 
:x=ecran:ecran=0:GOSUB 343:écran=x: 

GOSUB 475:WHILE INKEYt="":WEND:fd 1 = 

3:WINDOW SWAP 0,1 

197 IF ecran=l THEN GOSUB 577 ELSE [32523 
GOSUB 513 

198 RETURN [555] 

199 PRINT " Pour une raison inexp (88313 

licable, le circuit pri «a: re- vient 
d'etre tresgravement endommage":PRI 

NT 
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200 PRINT ” Les dégâts s'étendent 
jusqu'au pressuriseur. L'echangeur 
est lege- rement touche. La piscin 

e est fissurée."sPRINTi PRINT " E 
tat DEFCOM 1 décrété” 

201 cirl=30+RND*15ipres=45+RND*I5ir 
esist=presipmpl=cirl+RND*3ituyvap=t 
uyvap-10-RND*15ipisc=pisc-18icuve=c 
uve-3-RND*10iebore=ebore-RND*25-40i 
ebar=ebar/l.5iRETURN 

202 PRINTîPRINT " La cuve et la p 
iscine viennent de se dégrader subi 
tement. Les bar- res, les canaux et 

le circuit primaire sont egalement 
touches.”!PRINT 

203 PRINT.” Le générateur est fis 
suree mais l'echangeur est intact." 
iPRINTiPRINT " La situation est t 
res alarmante.* 

204 pisc=50-RND*15icuve=55-RND*7ieb 
ar=ebar-20-RND*2iecan=ecan/1.5 s cir1 
=cirl-10-RND*13ipres*pres-3iresist = 
resist-4igene=gene-RND*10-3iebore=e 
bore-RND*10-8îRETURN 

205 PRINTiPRINT * Une fuite vient 
d'endommager gravement le système 

producteur de vapeur.*!PRINT “ 
L'ensemble primaire est peu touche 
mais le secondaire et l'enceinteon 
t ete degrades":PRINT 
204 PRINT * Situation dangereuse. 
Contamination possible.” 

207 gene=40+RND*10ituyvap=50+RND*3i 
prot=prot-RND*3icir2=cir2-25-RND*3: 
econd=econd-3î pmp2=pmp2-4-RND*3iebo 
re=ebore*RNDiebar=ebar-20-RND*10iRE 
TURN 

208 PRINT ” Un avion vient de per 
cuter l'enceinte de confinement. 

Elle est partiellemen 
t détruite. L'ensemble primaire est 
gravement touche.” 

209 PRINTiPRINT ' Des projections 
ont endommage le circuit secondair 

e et surtout le condenseur.” 

210 prot=prot/2.5ipisc=pisc/1.5iCuv 
e=cuve-20igene=gene-14-RND*3ituyvap 
=tuyvap-RND*12-3icirl=cirl-20-RND*l 
Siebar=ebar/l.2ipmpl=pmpl*RNDipmp2= 
pmp2/l.3icir2=cir2-RND«10-8iecond=e 
cond/2-RND*14iebore=ebore/1.4-RND*1 
0iRETURN 

211 PRINT ” Un tremblement de ter 
re d'une violence exceptionnelle a 
frappe la région de Skyworth. La c 
entrale est touchée.*iPRINT 

212 PRINT ” Les dégâts sont multi 
pies et impossibles a 1 ocaliser."iP 
RINTiPRINT 11 La situation est cat 
astrophique.” 

213 prot=prot/2.4:econd=econd/2.4ip 
isc=pisc-RND*30-30icuve=cuve-RND*30 
-20igene=gene-10-RND*10ipmpl=pmpl/ ! 
. 4i ci rl=cirl-20-RND*8 

214 IF RND<0.5 THEN c i r2=cir2/1.4 i p 
mp 2 =pmp 2/2 

215 IF RND<0.7 THEN cir1=cir1/1.4 
214 IF RND<0.4 THEN ebore=ebore/3.2 
217 IF RND<0.3 THEN ecan=ecan/1.5ie 
bar=ebar/2.4 


1154123 218 RETURN C5553 

219 IF ecran=l AND f1=15 AND mw>140 185803 
0 THEN x*=”AVERTISSEMENT Z.001-iy*« 
•Disjonction reseau”:iF=“- SURPRODU 
CTI0N -”iGOTO 571 

1118453 220 IF cd=-l AND zcentrale<45 AND e 190403 

cran = l THEN cd=0ixF=”AVERTISSEMENT 
y. 102”iyt="E.G.C. Al armant" îzF="C orn 
m. Préfecture”iGOTO 571 


1114593 


198573 


190283 


1124843 


159103 

1101543 



1159213 

174373 

1155543 

1127903 

1121413 

184923 

124383 

113503 

114923 

117743 


221 RETURN 15553 

222 • 11173 

223 ' Ordres DISPATCHING 113403 

224 * 11173 

225 cd=cd+liON fd+1 GOTO 224,231,23 124133 
3,234,242,245,244,250 

224 IF cd=0 THEN 253 15393 

227 IF TVAPM40 THEN IF fd 1 =0 THEN 148913 
FD=1iGOTO 254 ELSE IF fdl*2 THEN 24 

2 ELSE fdl=0iGOTO 243 

228 IF CD M0D 50=0 THEN 255 111293 

229 RETURN 15553 

230 ' 11173 

231 IF CD M0D 500 OR RND30.4 THEN 113773 
RETURN 

232 CD=0iBUT=900+RND»499iFD*2ifd1=0 121093 
iGOTO 257 

233 IF ABS(MW-BUT)<=10 THEN FD=3icd 148283 


=0iSOUND 129,100,3,15iS0UND 1,200,3 
,15iRETURN 

234 IF fdl=l AND cd>10 AND RND*10<1 114183 
THEN fd=5lRETURN 

235 IF CD MOD 45=0 THEN 258 ELSE RE 114773 
TURN 

234 IF ABS(mw-but) >10 AND butO-1 T 121033 
HEN fd=2îGOTO 258 

237 IF but>0 THEN SOUND 132,1500-cd 114033 
*84,3,15 

238 IF cd=15 THEN but=-liGOTO 254 117443 

239 IF cd>=20 AND RND*10<2 THEN fd= 123473 
4*fd1iRETURN 
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240 RETURN C5553 

241 ' 1117] 

242 fdl = l 1255] 

243 but*I00+RND+1299:cd=0:fd=2:GOT0 [1649] 

257 

244 ’ [117] 

245 fd*6(G0T0 259 [8B5] 

246 IF cd HOC 3=0 THEN SOUND 129,10 [1681] 

0,2,15 

247 IF CD MOD 8=0 THEN PNT=PNT-1 [1316] 

248 IF tvap*-l AND tl<40 THEN cd=0i [3566] 
f d=7:GOTO 256 ELSE RETURN 

249 ‘ [117] 

250 IF cd<6 THEN RETURN [1046] 

251 IF RND<0.5 THEN fdt=3 ELSE IF R [2735] 

ND<0.5 THEN 260 ELSE fdl=2 

252 fd»Oicd=-l:RETURN [110(7] 

253 X$="DEBUT DE SESSION"!Yt= “Or dre [3577] 
PRIORITE 1":z F**MISE EN DIVERGENCE 

"1 GOTO 571 

254 ' [117] 


255 PNT=PNT-6:xt=""iyt="ACCELEREZ [3160] 
PROCEDURE"!2#="":G0SUB 676:GOTO 571 

256 80RDER 26s X#="RECONNAISSANCE"! Y [6581] 

# = " " : Z$*"FIN DE PROCESSUS" iCALL !,BD 

19JCALL &BD19:BORDER OiGOTO 571 

257 X#«"«BESOINS NATIONAUX»":Y*="C [4803] 
ONNECTION RESEAU"! Z4="OBJECTIF *+D 
ECilBUT,"####”)+" MH": GOTO 571 

258 PNT=PNT-3iX$*"":Y#=*ATTEIGNEZ • [3850] 
+DEC#(BUT,"####">+" NW ! ! “ : Z*=“": GO 

TO 571 

259 Xt=“PRIORITE 00.Z":Yi="DEMANDE [3894] 
EXPRESSE*iZF* "- ARRET COMPLET -’iG 

OTO 571 

260 xt=”FIN DE SESSION":yt="Skywort [4205] 
h AWK-01* 12f="BILAN GENERAL*!GOSUB 

571iGOTO 261 

261 • [117] 

262 ' Bilan final [1011] 

263 1 [117] 

264 BORDER 0,1:F0R X = 1 TO lOOOOiNEX [1740] 

T s BORDER 0 

265 GOSUB 674! BORDER 3: c1 = 1111 = 11c2 [10379] 
=40:12=25:GOSUB 612iHIND0H #0,2,39, 

2,24:PEN 2iL0CATE 9,2:PRINT "COMPTE 

RENDU DE SESSION"iPEN IsPRINT TAB< 

8)STRING*(25,45) 

266 CONTAM=CONTAM-55*RND*(ZCENTRALE [3797] 
<551 -6331*RND*(ZCENTRALE=0) i pnt = pnt 

/10 

267 IF zcentrale>80 THEN xt="EN BON [8971] 
ETAT.“: x = l ELSE IF zcentrale>50 TH 



EN xt=“ASSEZ ENDOMMAGEE.":x=2 ELSE 
IF zcentrale>20 THEN x*="PRESBUE DE 
TRUITE.":x=3:ELSE xF="DETRUITE...! ! 

! “:x=4 

268 PRINTiPRINTiPRINT » LA CENTRA [3710] 
LE EST "xF:PRINT 

269 IF niv<>2 THEN 271 ELSE IF pnt> [6208] 

8 THEN xF=“correctes" ELSE IF pnt>5 

THEN xF="moyennes" ELSE xF="deceva 
ntes* 

270 PRINT "(Vos performances dispat [5866] 
ching ont ete jugees “ j xi j").“! GOTO 

274 

271 PRINT “ - Prod. Globale : ";mp [2483] 

rD)" MW" 

272 IF mpro<300 THEN x*="Faible" EL [9970] 
SE IF mpro<900 THEN xt="Peu rentabl 

e" ELSE IF mpro<1200 THEN x#=”Corre 
cte” ELSE IF mpro<1400 THEN xF=‘Exc 
el lente" ELSE xt="Hors normes" 

273 PRINT TAB(2211"(* j xFj")“ [833] 

274 PRINT:PRINT:PRINT " - Pop. con 16869] 

taminee : "jcontam*25i:PRINT " hbts 

":PRINT:x#=" - Etat secteur " 

275 z=cirI+pmpl+pres+resist+cuve+tu [11913] 
yvap:PRINT:PRINT xt’primaire : "j 

USING **«#.#«")ROUND(z/6,2):PRINT:: 
=cir2+gene+econd+pmp2:PRINT xt’seco 
ndafre : "}USING "###.##”iROUND!z/4 
,2):PRINT:z=prot+Ebar+ecan 

276 PRINT xt"annexe : "(USING " [14197] 
###.##"(ROUND(Z/3,2):PRINT:PRINT:PR 

INT " - Res. sécurité : “ ; : IF x = l 

THEN PRINT "SATISFAISANTS" ELSE IF 
x=2 THEN PRINT "bien moyens" ELSE I 
F x=3 THEN PRINT “insuffisants" ELS 
E PRINT ’TCHERNOBYLISANTS !" 

277 GOSUB 677:WHILE INKEY(47)=-l:WE [6194] 
ND:GOSUB 677:WIND0W SWAP 0,7:RUN 


278 ' [117] 

279 ’ DESTRUCTION CENTRALE [768] 

280 ’ C 117] 

281 GOSUB 88 [842] 


282 SPEED INK 1,1:BORDER 6,24:x=4:P [6693] 
RINT CHRF(7); :GOSUB 677:G0SUB 678:G 

OSUB 676 

283 GOSUB 352:INK 1,0:SPEED INK 1,1 [1806] 

284 INK 0,26,0:FOR x=l TO 90:SQUND [6459] 
1,0,2,15,,,RND»31:SOUND 132,x+100,2 

,15,,2:SOUND 2,0,2,15,,,RND*31:NEXT 
: INK 0,0,1:BORDER 1,0 

285 FOR x = 1 TO 31:S0UND l,x»10,4,15 [10664] 
,,,x:SOUND 4,x*9,4,15,,,32-x:NEXT:I 

NK 1,26:FOR x=l TO 26:BORDER x:INK 
0,x: INK 1,26-*: INK 2,x/2:S0UND 2,30 
0-10»x,3,15,,2:SOUND 1,100+10*x,4,1 


5,,3:CALL IBD19:NEXT 

286 zcentrale=0:GOTO 261 11067] 

287 • [117] 

288 ' Traitement Population [2151 

289 ’ [117] 


290 radpisc=(100-cuve)*rad 1/100+100 [1556] 
+RND*45 

291 zradint=RND/55+0.00002+(100-cir [4846] 
1)*r ad 1/9898+(100-presI/10 

292 IF pisc<55 AND radpisc>3000 THE [57121 
N zradint=zradint»l.25 

293 IF prot<90 THEN zradint=zradint [16121 
/1 . 3 

294 IF prot<10 THEN zradint=zradint [17371 
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y 1.5 

295 IF zradint>120 THEN zradint=119 [2444] 
+RND 

294 IF prot>97 THEN zairrad=0 ELSE [51113 

zairrad=( 100 -prot)/ 100 * 2 radint +(100 

-ci r2)/10 



297 IF econd>90 OR rad2<2 THEN zref [5418] 
rad=0 ELSE zrefrad=<100-econd)*rad2 
/10000 

298 IF evpopOO AND evpopOlO AND R [44703 
ND<0.4 THEN evpop»evpop+l 

299 IF evpop*10 AND ZRADINT<10 THEN [13433 
RETURN 

300 contaa=conta«-5a(zairrad>4)-5*( [4519] 
zrefrad>l)-8»(zrefrad>12)-10*<zairr 
ad>12) 

301 IF zairrad>12 THEN contam=conta [28743 
m+4+RND*15 

302 IF zrefrad>12 THEN contam=conta [23943 
m+5+RND*20 

303 IF zairrad>20 THEN contam=conta [28083 


m+12+RND*20 

304 RETURN [5553 

305 ' [1173 

304 ' Travail des ouvriers [15553 

307 ' [1173 


308 IF bles>0 AND «El MOD 8)=0 AND [57113 
RND»10<4 THEN bles=bles-1idisp=disp 

♦ 1 

309 IF ouv (3X0 AND fl MOD 5=0 AND [34873 
RND*10<1 THEN ouv(3)*-ouv(3)iocc=oc 
c-ouv(3)ibles=bles+ouv(3) 

310 x=0iIF zr adint >12 OR zencpres>3 (35283 
THEN k=128 ELSE k=0:G0T0 314 

311 IF ouv(0)<0 THEN ouv(0)=-ouv(01 [20433 
ix=x+ouv <01 

312 IF ouv(3)<0 THEN ouv(3)=-ouv(3) [32773 
ix=x+ouv(3l 

313 IF ouv(4K0 THEN ouv(41 =-ouv(4) [14803 
ix=x+ouv(4) 

314 IF ouv(4)<0 THEN ouv(4)«-ouv(4) [32243 
IX=X+OUV(4) 

315 IF ouv(7)<0 THEN ouv(7)=-ouv(7) [31853 


ix*x+ouv<7) 

314 ouv(0)=ouv(0) MOD 128+k:ouv (3) = [43143 
ouv(3) MOD 128+k>ouv(4)=ouv(4) MDD 
128+kiouv(4)=ouv(4) MOD 12S+kiouv<7 
)=ouv (7) MOD 128+k 

317 IF tvap>300 OR «imMOOO THEN k=l (20343 
28 ELSE lî = 0ï GOTO 321 

318 IF ouv (1X0 THEN ouv ( 11 =-ouv ( 11 [20573 
;x=x+ouv<11 

319 IF ouv(2)<0 THEN ouv(2)=-ouv(2) [29393 
ix=x+ouv<2) 

320 IF ouv(5)<0 THEN ouv(5)=-ouv(S) [14383 
ix *x+ouv(5) 

321 ouv(l)=ouv(l) MOD 128+k!ouv(2)= [1414] 
ouv(2) MOD 128+ktouv(5)=ouv(5) MOD 

128 + k 

322 bles=bles+x!occ*occ-xix=0 [4843 

323 IF occ=0 OR RND<0.3 THEN RETURN [15413 

324 IF ouvIOXO THEN IF pmp 1 <97 THE (31823 
N pmp1=pmp1+FIX <RND»3) ELSE pmpl=10 
0iouv(0)=-ouv(0)ix=x+ouv(0) 

325 IF ouv(11<0 THEN IF pmp2<97 THE [47443 
N p«p2=p*p2+FIX(RND»3) ELSE pmp2=10 

Oiouv(11=-ouv(11ix=x+ouv(11 

324 IF ouv(2)<0 THEN IF econd<98 TH [70543 

EN econd=econd+FIX(RND*2) ELSE econ 

d=100iouv(2)=-ouv(2)ix=x+ouv(2) 

327 IF ouv(3)<0 THEN IF gene<89 THE [4139] 

N gene=gene+FIX(RND*5) ELSE ouv<3>= 

-ouv<3)ix=x+ouv(3) 

328 IF ouv (4X0 THEN IF ebore<94 TH [47793 
EN ebore=ebore+F[X(RND»4) ELSE ebor 
e=100:ouv(4)=-ouv(4):x=x+ouv(4) 

329 IF ouv(5)<0 THEN IF cir2<78 THE [40423 
N cir2=cir2+FIX(RND»2) ELSE ouv(5>= 

-ouv(5)ix=x+ouv(5) 

330 IF ouv(7)<0 THEN IF cirl<80 THE [51593 
N cirl=cirl+FIX(RND+2) ELSE ouv(7)= 

-ouv(7):x=x +ouv(7) 

331 IF ouv(4)<0 THEN IF pres<97 THE [114143 
N pres=pres+FIX <RND*3)sresist=pres- 

RND*4 ELSE pres=100îresist=100souv( 


4)=-ouv(4)ix=x +ouv(4) 

332 occ=occ-x!disp=disp+x:RETURN [24273 

333 1 (1173 

334 1 Computer P.S.R.P. (17433 

335 ' C1173 


334 CLS 41 :WINDOW SWAP 0,lsz*=STRIN [ 19933 
Gt(14,*-") 

337 PRINT " E.G.C.: ";USING "(MHI";F [3373] 
IX(zcentrale); !PRINT "X" 

338 IF zcentrale<40 AND 2centrale>5 [33423 
0 THEN PRINT “ (Defcom 1 ) " 

339 IF zcentrale<50 AND zcentrale>3 (45903 
0 THEN PRINT ” (Defcom 21“ 

340 IF zcentrale<30 THEN PEN 3sPRIN [4185] 

T "Destruction IMMINENTE"j! P 

EN 1 

341 PRINT z * ; s IF evpop = 10 THEN PRIN [24723 
T " Pop. evacuee*)zij 

342 IF occ=0 THEN PRINT "Ouvr. inac [41553 
tifs"! ELSE PRINT ” Ouvr. actifs") 

343 PRINT z * ; [4883 

344 IF contamMO AND contam<400 THE [35943 
N PRINT "Contam. legere" 

345 IF conta®>400 AND contam<800 TH [49153 
EN PRINT "CONTAMINATION IMPORTA 

NTE" 

344 IF contam>800 THEN PEN 3sPRINT [38493 
■POP. GRAVEMENT CONTAMINEE"sPEN 1 
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347 WINDOW SWAP 0,1]RETURN t17673 

348 ' Cl 171 

349 ' Dégradation totale enceinte C17623 

350 • 11171 

351 GOSUB 352:GOTO 354 118221 

352 FOR >i = l TO 31sS0UND 4,0,7,15,1, 181211 
,x:NEXÎ!FOR x = 31 JO 1 STEP -1 s BORDE 

R x MOD 25:SOUND 1,x,7,15,2,,x:NEXT 
:prot=0:BORDER 0 

353 SPEED INK 1,1 : INK 0,0,26:F0R x= 181041 
0 TO 50:SOUND 2,x*2,5,15,2,,x/2:CAL 

L &BD19:CALL IBD19:NEXT x:SPEED INK 
10,10:INK 0,0:RETURN 

354 IF ECRANOl THEN GOSUB 577 115651 

355 CLS #5:PEN #5,3:PR1NT #5," L'EN 148761 
CEINTE DE CONFINE- MENT EST TOTALE 

MENT DETRUITE ! ! ! * 

356 FOR x=0 TO 3:S0UND 1,60,10,15,1 138441 
: FOR y=l TO 60:CALL 6BD19)NEXT y,x 

357 CLS #5:IF RND<0.7 THEN PRINT #5 161121 
D.T.I. Générateur":gene-gene-F 

IX(RND»10)-10 

358 IF RND<0.4 AND gene<40 THEN PRI 166351 
NT #5,"- D.T.I. Echangeurtuyvap= 
tuyvap-FIX(RND*10>-10 

359 IF RND<0.8 THEN PRINT #5,"- D.T 184561 
. I. Cirl.Press": cirl=cir1-FI X(RND* 

10)-10:press=press-6sIF press<90 AN 
D RND<0.8 THEN resist=resist-10 

360 IF RND<0.65 THEN PRINT #5,”- R. 157681 
I.D. Cuve,Pi sc";:pisc=pisc-FIX(RND 
*161-6:cuve=cuve-FIX(RND*10)-5 

361 FOR x=0 TO 4:S0UND 1,120,10,15, 130221 
1 : FOR y=l TO 90:CALL 6BD19:NEXT y,x 


362 RETURN 15551 

363 ' 11171 

364 ’ Equilibrages mathématiques 128111 

365 ' 11171 


366 IF ecan<0 THEN ecan=0 17731 

367 IF ebar<0 THEN ebar=0 112181 

368 IF cuve<0 THEN cuve=0 114901 

369 IF pisc<0 THEN pisc=0 114511 

370 IF pmp 1 <0 THEN p®pl=0 113301 

371 IF p*p2<0 THEN p«p2=0 11155] 

372 IF tuyvap<0 THEN tuyvap=0 11085] 

373 IF gene<0 THEN gene=0 15881 

374 IF pres<0 THEN pres=0 17431 

375 IF resist<0 THEN resist=0 114801 

376 IF prot<0 THEN prot=0 116631 

377 IF cirl<0 THEN cirl=0 111841 

378 IF cir2<0 THEN cir2=0 114611 

379 IF ebore<0 THEN ebore=0 119201 

380 IF econdCO THEN econd=0 111881 

381 IF resist'pres THEN resist=pres 120151 

382 IF cuve<pisc THEN cuve=pisc 114121 

383 IF f p1ïpmpl THEN fpl=pmp1 : IF ec 148281 

ran=l THEN GOSUB 545 

384 IF Ip2>p«p2 THEN fp2=p«p2:IF ec 132701 
ran=l THEN GOSUB 549 

385 IF fprlecond THEN fpr=econd:IF 128481 
ecran*l THEN GOSUB 556 

386 IF tpres>(resist*pres) THEN tpr 140881 
es=resist+pres:IF tpres<25 THEN tpr 
es=25 

387 IF zvappresXl AND zvappresO-l 13346] 
THEN zvappres=l 

388 IF CDNTAM>30000 THEN C0NTAM=300 110411 

00 

389 zcentrale=(ecan+ebar*2*cuve*8+p 17508] 
isc*3+p»pl*p»p2+tuyvap*5+gene*4+pre 


5+resist+prot*4+cirl*8+cir2*3+ebore 


+econd)/44 

390 RETURN 15551 

391 ' 11171 

392 1 SECURITE 1406] 

393 ' 11171 

394 *pro= <5*«ipro+»w)/6 118201 

395 Fl-Fl + llIF F1*20 THEN Fl-0 1713] 


396 IF (41*0 OR F1-7 OR 41 = 14) AND 119281 
ecran*l THEN CLS »5 

397 IF t1<40 THEN a«0>b=0:c=0:d=0:G 12369] 
0T0 419 

398 IF tI>400 AND t1<420 THEN A=1 E 120751 
LSE A*0 

399 IF t1<420 THEN B=0:C=0:G0T0 402 116031 

400 B=1: IF bar >20 THEN c»l:IF RND*1 151361 
0<0.3 THEN ebar=ebar-FIX(RND*3) 

401 cirl=cirl-FIX(2*RND): IF RND*10< 135831 
3 THEN pres=pres-FIX(2*RND):resist= 
resist-FIX(2*RND) 

402 IF 11 /p1<40 THEN D=O:GOT0 404 113071 

403 D=1:cirl=cir1-FIX<3*RND):pres=p 151211 
res-FIX(2*RND): IF RND<0.3 THEN resi 
st=resist-FIX(2»RND) 

404 IF t1<50 THEN 419 18281 

îbiiiTëfi 



405 IF cirl<50 AND RND*10<4 THEN tu 139411 
yvap=tuyvap-FIX(4*RND) 

406 IF cirl<58 AND RND*10<5 THEN p* 122951 
pl=pmpl-FIX(3*RND) 

407 IF pres<50 AND RND*10<8 THEN re 13024] 
sist»resist-FIX(3*RND) 

408 IF cirl<60 AND RND*10<4 THEN eu 113601 
ve=cuve-FIX(RND*2) 

409 IF ci r 1 <30 AND RND*10<3 THEN eu 115921 
ve=cuve-FIX(RND*5) 

410 IF cir1<20 AND RND*10<8 THEN pi 148381 
sc*pisc-FIXiRND*6))cuve*cuve-FIX(RN 

D«6) 

411 IF cirl<50 AND RND*10<2 THEN ge 14399] 
ne=gene-FIX(RND*2) 

412 IF cir1<80 AND pl>10 AND RND<0. 122681 
15 THEN cirl*cirl-FIX(RND*2) 

413 IF cuve<70 AND bar2>22 AND RND* 134361 
10<4 THEN ebar=ebar-FIX(RND*3) 
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414 IF cuve<50 AND RND*10<5 THEN ec [2725] 
an=ecan-FIX(RND*5) 

415 IF TUYVAP<60 AND RND*10<3 THEN C2422] 
CIR1=CIRI-FIX(RND»1.5> 

416 IF TUYVAP<60 AND PI>3 AND RND<0 [3164] 
.5 THEN GENE=GENE-FIX(RND*2) 

417 IF ecan<60 AND bar2>40 AND RND* [1356] 
10<3 THEN ebar=ebar-FIX(RND*2) 

418 IF (cuve<50 OR cirl<50) AND RND [4864] 
*10<4 THEN ebore=ebore-FIX(RND*2) 

419 IF ecranOl OR NOT<F 1 >=0 AND Fl [1979] 
<71 THEN 428 

420 IF a=0 AND b=0 AND c=0 AND d=0 [3206] 

THEN CLS #5:GOTO 428 

421 X*=SPACE$<23> [1055] 

422 LOCATE #5,1,1 s PRINT #5,X*:IF A= [6641] 
1 THEN LOCATE #5,1,1 :PRINT 45,"- Te 

mp. Cirl )• 400 *+CHR*(253)*"C”:IF R 
ND<0.2 THEN GOSUB 676 

423 IF 8=1 THEN LOCATE #5,1,1:REN # [5696] 
5,3:PRINT #5,“- R.I.D. Cirl/Temp": 

PEN #5,1:IF RND*10<4 THEN x=2:G0SUB 
678 

424 LOCATE #5,1,2:PRINT #5,x * : IF c= [4549] 

1 THEN LOCATE #5,1,2:PRINT #5,”- D. 

P. Barres" 

425 LOCATE #5,1,3s PRINT #5,xt:IF d= [7397] 

1 THEN LOCATE #5,1,3:PEN #5,3:PRINT 

#5,"- R.I.D. Cirl/Vapeur“:PEN #5, 

1 : IF RND*10<4 THEN GOSUB 679 

426 ' [117] 

427 IF tvap=-l THEN 363 [7741 

428 IF tuyvap<70 THEN A=1 ELSE A=0 [1609] 

429 IF tuyvap>=40 THEN B=0 ELSE B=1 [4981 ] 
: IF RND<0.25 THEN GENE = GENE-F1X(RND 

*3) 

430 IF tvap<310 THEN c=0 ELSE c = 1:1 [3220] 
F RND<0.25 THEN cir2=cir2—FIX(RND*4 

) 

431 IF des>=11 OR tvap<130 THEN d=0 [1794] 
ELSE d=l 

432 IF Cir2<50 AND tvap>13 AND RND< [3479] 
0.3 THEN cir2=cir2-FIX(RND*1.5) 

433 IF cir2<60 AND RND<0.3 THEN pmp [2564] 
2=pmp2-FIX(RND*2) 

434 IF cir2<40 AND RND<0.4 THEN gen [2708] 
e=gene-FIX(RND*2l 

435 IF ecranOl OR N0T(T1>6 AND T!< [ 1657] 
141 THEN 443 

436 IF a=0 AND b=0 AND c=0 AND d=0 [3199] 

THEN CLS #5:GOTO 443 

437 x* = SPACE'f (23) [ 1055] 

438 LOCATE #5,1,1 :PRINT #5,Xt:IF A= [6806] 
1 THEN LOCATE #5,1,1:PEN #5,3 : PRI NT 

#5,"- Contact Cir1.Cir2":PEN #5,1: 

IF RND<0.6 THEN x=3:G0SUB 678 

439 LOCATE #5,1,2:PRINT #5,xl:IF b= [6925] 
1 THEN LOCATE #5,1,2:PRINT #5,“- R. 

I.D. Gene/echang. " : IF RND<0.4 THEN 
x = 1 :GOSUB 678:GOSUB 679 

440 LOCATE #5,1,3:PRINT #S,x*:IF c= 16782) 
1 THEN LOCATE #5,1,3:PEN #5,3:PRINT 

#5,“- R.I.D. Cir27Temp.":PEN #5,1 
: IF RND< 0.4 THEN GOSUB 679 

441 LOCATE #5,1,4 :PRINT # 5,x * ; : IF d [4767] 
=1 THEN LOCATE #5,1,4:PRINT #5,"- D 

.P. Cir2/Refroid.”i 

442 ' [117] 

443 IF des<19 THEN a=0 ELSE a=l:IF [2629] 
RND<0.4 THEN econd=econd-FIX(RND*3) 


444 IF zencpres>2 AND zencpres<3.4 
THEN b=I ELSE b=0 

445 IF b=l AND RND<0.3 AND prot>50 
THEN prot=prot-FIX(RND*2) 

446 IF zencpres>3.4 AND zencpres<4. 

5 THEN c = 1 ELSE c = 0 

447 IF c = 1 AND RND40.6 AND prot>25 
THEN prot=prot-FIX(RND*4I 

448 IF NOT (zencpres>=4.9 AND protO 
0) THEN 451 

449 IF ecran=2 THEN GOSUB 348:ecran 
=2:GOSUB 363:G0SUB 513:G0SUB 333:RE 
TURN 

450 IF ecran=1 THEN 348 

451 IF ecranOl OR N0T(fl>!3 AND Tl 
<21) THEN 363 

452 IF a=0 AND b=0 AND c=0 THEN CLS 
#5:GOTO 363 

453 xl = SPACE't<23> 

454 LOCATE #5,1,1 :PRINT #5.x* 

455 IF a=! THEN LOCATE #5,i,1 : PRI NT 
#5,"- D.P. Condenseur/des" 

456 LOCATE #5,1,2:PRINT #5,x*:L0CAT 
E #5,1,2:IF b=1 THEN PRINT #5,”- D. 
P. ConTin./Press" 

457 IF c = 1 THEN PEN #5,3:PRINT #5," 
- R.I.D. ConTin./PRESS":PEN #5,1:1 
F RND<0.5 THEN x=2:G0SUB 678:G0SUB 
679:GOSUB 679:G0SUB 679 

458 GOTO 363 

459 ’ 

460 ' Pression enceinte / ReTroid 

461 ' 

462 debre!=econd*Tpr*0.015 

463 IF tvap<>-l THEN des=debreT/7.5 

464 IF ecran=l THEN GOSUB 556 

465 IF prot=0 AND zencpres=l THEN R 
ETURN 

466 IF prot=0 THEN zencpres=S0R(zen 
cpres):IF zencpres<1.02 THEN zencpr 
es=1 : GOTO 565 ELSE 565 

467 z=zencpres:IF (cuve<100 AND pis 
c<100 AND p1>=8) OR <cuve<30 AND pi 
sc<40) THEN zencpres=zencpres+(200- 
cuve-pisc)/2300 

468 IF (cir 1 <60 AND p1>=12) OR cirl 
<20 THEN zencpres=zencpres+(100-cir 
1)/3000 

469 IF gene<90 AND vappres>2 THEN z 
encpres=zencpres+(100-gene)/2000 

470 IF zencpres>5 THEN zencpres=5 

471 IF zOzencpres THEN IF z<zencpr 
es THEN 566 ELSE 565 

472 IF z=zencpres AND zencpres=l T 
HEN RETURN 

473 IF prot<60 AND prot>50 THEN zen 
cpres=zencpres-( 100-prot)/200*z encp 
res 

474 IF RND<0.3 THEN RETURN ELSE zen 
cpres=zencpres-0.13: IF zencpres<l T 
HEN zencpres=1 : GOTO 565 ELSE 565 

475 ’ 

476 ' Calculs Secondaires 

477 ' 

478 deb2=cir2*(econd+10)*gene*Tp2*0 
.00000085 

479 IF deb2<3 AND zvappres>3 THEN d 
eb2=cir2»(econd+10)tgene* 2 vapprès*0 
.0000013 


[1769] 

[5678] 

[2223] 

[2766] 

[2150] 

[3585] 


[1572) 

[1360] 

[3317) 

[1055) 

[1187) 

[3871] 

[4056] 


[6916] 


[525] 

[117] 

[2209] 

[117] 

[1606) 

[1818] 

[2262] 

[1453] 

[5859] 


[8524] 


[4822] 


[4228) 

[988) 

[2500] 

[2920) 

[4824] 


[7593] 


[117] 

[2891] 

[117] 

[1276] 

[4159] 
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480 IF ABS <zit2)<3 THEN 2=0 ELSE r= C17303 
z i 12 

481 tvap=FIX<TUYVAP*tl/151+26+z):IF C58413 
des<=l1 AND t1>190 THEN 2 it2=2it2+ 

RNDMll-desl ELSE zit2=2it2-RND*2 

482 IF fp2<55+RND*15 AND ti>200 THE [4091] 
N zit2=2it2+RND*(tl/100>:G0T0 484 

483 IF 2it2<>0 THEN 2it2=zit2-RND*3 [2333] 
iIF zit2<0 THEN zit2=0 

484 IF tvap<120 THEN tvap=-I! 2 vappr [2681] 
e5=-l 

485 IF tvap<>-l THEN zvappres=(cir2 [52133 
+10)*gene*(ip2/500000+(tvap-1351/10 

0000 ) 

486 IF ivappre5=0 THEN zvappres=l [23993 

487 x = <100-tuyvap)/100*radl: IF x>ra [31773 
d2 THEN rad2=x 

488 IF zvappres>99 THEN :vappres=99 [24773 

489 IF deb2>99 THEN deb2=99 [9953 

490 IF ecran=l THEN 549 ELSE RETURN [18313 



491 ' [117] 

492 ' Calculs circuit primaire [17153 

493 1 [117] 

494 tl=(50-bore2)/50*((bar2/100)*64 [74083 
5-deb1/90*140+P1*2)+26+2i11 s IF tuyv 
ap<50 AND bore<25 AND bar2<50 THEN 
zitl=2itl+RND*26 

495 IF tvap>t 1 THEN 2 i11= 2 i11 + (tvap [17553 
-tl)/3s GOTO 497 

496 IF zitlOO THEN z i 11 =2 i 11 -RND + 1 [22353 
6»IF zit1<0 THEN zitl=0 

497 IF t1<25 THEN tl=25+RND*15 [13783 

498 pl=(<tpres2-25l/3.24+(tt-1001/8 [50221 
3.3)*(cirl/100+0.1)*<tuyvap/100+0.1 

)» IF p1<1 THEN p1 = 1 

499 deb1=CIR1/100*CUVE/100+FP1/100* [11253 
90 

500 IF mw>1500 THEN x=1400 ELSE x=m [21293 

501 rad 1=98*(deb1 +1)+RND*9Û+(50-bor [16323 
e)*(x+0.11*0.0654 

502 IF ecran=l THEN 545 ELSE RETURN [31093 

503 ' [1173 

504 ' Traitement Production [3573 

505 1 ' [1173 

506 xx=mn:IF zvappres=-l THEN mw=0: [21863 
GOTO 512 


507 IF tvap<3000 THEN mw=5.787*(tva 
p-1201+28.118*(2vappres-l)+P1 ELSE 
mw=30000 

508 IF cir2<60 THEN mw=cir2/100*mw 

509 IF cir2<22 THEN mw=0 

510 IF MW<=0 THEN MW=0 

511 IF mw>1400 AND mw-1400<12 THEN 
mw=1400 

512 IF mw=xx OR ecranOl THEN RETUR 
N ELSE GOTO 587 

513 ' 

514 ' Poste sec. rad. prot. (Ecr. 
2) 

515 ' 

516 DATA 1,1,40,3,1,3,28,10,28,3,40 
■,10,1,10,13,17,13,10,25,17,1,17,13, 

25,13,17,25,21,13,21,25,25,25,10.40 

,25 

517 GOSUB 674 : RESTORE 516:ecran = 2:F 
OR x = 1 TO 9:READ c 1,11,c2,12:GOSUB 
612 :NEXT:WINDOW #1,26,39,13,24:PEN 
2 

518 DATA 11,4,"ACTIVITE",30,4,"EFFE 
CTIFS",31,5,"HUMAINS”,3,11,‘SECTEUR 

1”,3,18,"SECTEUR 2",15,11,"SECTEUR 
3",14,18,"CONFINEMENT ", 16,22,"COND 
ENS,",29,11,"COMPUTER",2,24,“P.Bore 

519 DATA 29,7,"Disp.",29,8,"Occupes 
”,29,9,“Blesses","Second.“,”Pmp2",* 
Gener.“,"Echang. " 

520 DATA "Pi seine",“Enceinte","Reje 
ts atm.","Rejets aqu.","Canaux",’Ba 
rres”,"Piscine","Cuve","Prim.","Pmp 
1", "Press.","Resist.","P.Bore" 

521 FOR k=1 TO 13:READ x,y,xt:LOCAT 
E x,y : PR INT x t:NEXT: FOR x = 13 TO 16: 
READ xi : LOCATE 14, x: PR I NT xi:NEXT 

522 FOR x=! TO 12 

523 y=x+5: IF x>4 THEN y=y+3 

524 IF x >8 THEN y = y + 3 

525 LOCATE 2,y :READ xi:PRINT xî:NEX 
T:LOCATE 26,6:PRINT "bq":LOCATE 2,2 
:PEN 0:PAPER 2:PRINT " POSTE SEC 
URITE RADIOPROTECTION “; :PEN 1 : P 
APER 0:MOVE 16,385,2:DRAWR 606,0 

526 GOSUB 527:GOSUB 533 

527 ’ 

528 ' Données s.I,2,3,Eff,Conf,Co 
nd 

529 ’ 1 

530 PEN 1 :xi="###":WINDOW #2,10,12, 
13,16:PR INT #2,US1NG xi :ecan;ebar;p 
iscicuve;:WINDOW #2,10,12,20,24:PRI 
NT # 2,U SIN G xi;cir1 ;pmpl; près;resis 
t;ebore; 

531 WINDOW #2,22,24,13,16:PRINT #2, 
US ING xi;cir2;pmp2;gene;tuyvap; :LOC 
ATE 18,20:PRINT USING xi;prot:LOCAT 
E 18,24:PRINT USING xi;econd 

532 LOCATE 37,7:PRINT USING Xi;DISP 
sLOCATE 37,8:PRINT USING Xi;OCC:LQC 
ATE 37,9:PRINT USING Xi;BLES:RETURH 

533 ' 

534 ' Cadre activité (PSRP) 

535 ' 

536 PEN 1 :LOCATE 16,6: PR INT USING “ 
#####";radpisc 

537 IF zradint>=10 THEN x=3 ELSE x= 
1 


[4269] 


[2365] 

[113] 

[769] 

[1889] 

C1142] 

[117] 

[1988] 

[117] 

[4820] 


[5192] 


[9444] 


[54743 


[10036] 


[8323] 


[809] 

[ 2221 ] 

[900] 

[9654] 


[1711] 

[117] 

[1674] 

[117] 

[7290] 


[9928] 


[9073] 


[117] 

[1652] 

[117] 

[1807] 

[2550] 
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538 PEN xs IF zradint<l THEN LOCATE 1122153 

15,7 s PR INT USING "444.44"jROUND(zra 

dint*1000,2) j : PEN 2:PRINT " nsrein/h" 

ELSE LOCflTE 15,7,-PRINT * "îUSING 

"444"jINT(zradint);sPEN 2:PRINT ” 
rem/h" 

539 IF z airrad >=8 THEN x=3 ELSE x = l C1227 3 

540 PEN x s IF zairrad< = l THEN LOCATE [89263 
15,8s PRINT USING "444.44”s ROUND (za 

irrad*I000,2) ) )PEN 2sPRINT'” mrem/b 

" ELSE LOCflTE 15,8t PRINT “ ";USIN 

G "###" 5 INT(zairrad)|sPEN 2s PRINT ” 
reis/h" 

541 IF zrefrad>=3 THEN x = 3 ELSE x = l [19273 

542 PEN x s IF zrefrad<=l THEN LOCflTE [90873 
15,9sPRINT USING “444.44"jROUND<zr 


efrad+1000,2)j sPEN 2:PRINT " mrem/h 
• ELSE LOCflTE 15,9s PRI NT ” ";USIN 
G “444"jINT(zrefrad)j :PEN 2sPRINT " 
rem/h" 

543 RETURN [5553 

544 GOTO 544 [4213 

545 ' [1173 

546 ’ Données circuit I [[8273 

547 ‘ [1173 

548 PEN 1 !LOCflTE 9,10sPRINT USING * [8791 3 


4MM»" J Fp 1 s LOCflTE 8,11 s PRI NT USING ”# 
###”;11 s LOCflTE 8,12s PR INT USING ”4# 
.4” ; debl : LOCATE 8,13s PRINT USING ”4 
4 . 4 " ; p 1 s LOCATE 7, 14 :PRINT USING "44 
444"ir ad 1 sRETURN 


549 1 [1173 

550 * Données circuit 2 [18303 

551 ' [1173 

552 PEN 1 iLOCATE 9,19sPRINT USING “ [58753 

444"îf p2sLOCATE 8,21:PRINT USING "4 

4.4"ideb2sLOCflTE 7,23iPRINT USING " 
44444“;rad2 

553 LOCATE 8,20s IF TVAP=-1 THEN PRI [37553 

NT *-" ELSE PRINT USING "4444 " ; T 

VflP 


554 LOCflTE 8,22s IF zVAPPRES=-l THEN [50203 
PRINT »-• ELSE PRINT USING "44. 


4“; ROUND <zVAPPRES,13 

555 RETURN 15553 

556 ' C1173 

557 ' Refroid. & bore [10923 

558 ' [1173 


559 PEN 1 s LOCflTE 26,21 s PRINT USING [67553 
" 444 "s fpr s LOCATE 26,22 s PR INT USING 

"444”idebref s LOCflTE 27,23sPRINT USI 
NG "44 11 ; dess LOCflTE 36,5sPRINT USING 
”44"; bore :RETURN 

560 ■ [1173 

561 ' Barres et près, enceinte [28793 

562 1 C1173 

563 CLS 42: FOR >:=33 TO 161 STEP 32s [27833 
HOVE 576,x,2s DRflWR 2,0sNEXT x 

564 MOVE 0,0,1sFOR x=544 TO 560 STE [56933 
P 4 s MOVE x , 33s DRAWR 0,1.28«bar:MOVE 

>i+48,33s DRflWR 0,1.28*bar s NEXT 

565 IF ecranOl THEN RETURN ELSE CL [22753 
S 43 

566 IF ecranOl THEN RETURN [ 17473 

567 FOR >1=256 TO 529 STEP 28sM0VE x [53543 
,136,2sDRflWR 0,2sM0VE x,152sDRAWR 0 

, -2 s NEXT 

568 FOR x = 136 TO 152 STEP 4: MOVE 25 [43273 
6 ,x,1 s DRflWR 50+ZENCPRES,0 

569 NEXTsIF ZENCPRES>4 THEN FOR X = 4 [44793 
60.8 TO 258+50+ZENCPRES STEP 2sMOVE 

X,136s DRAWR 0,16,3s NEXT X 

570 RETURN [5553 

571 ' [1173 

572 ' Message dispatching (xi,yi, [20393 
zi) 

573 1 [1173 

574 PAPER 44,3sCLS 44sS0UND 2,250,9 [54663 
0,15,2,2sSOUND 2,250sPflPER 44,0sCAL 

L îtBD 19s CLS 44 

575 x = 1 sGOSUB 576:x=2sxi=yisGOSUB 5 [38183 
76 s x =3i >ii =2 i 

576 xi=SPACEi(10~LEN(xt)/2)+xi:F0R [66983 

y=l TO LEN(xi)s LOCATE 44,1,«SPRINT 
44,RIGHTi(xi,y)sNEXT:RETURN 

577 ' [1173 

578 1 Dessine le cadre salle de c [20553 
ontroie 

579 ’ [1173 

580 DATA 1,1,22,6,22,1,33,6,33, 1.40 [ 119793 
,6,1,6,16,15,1,15,16,24,16,6,40,13, 
16,13,33,18,16,18,33,24,33,13,40,24 

,2,2,"DISPATCHING NATIONAL",23,2,"P 
RODUCTION",34,2,"TAUX",36,3,"BORE", 

7,8,"PRIMAIRE",19,7,"SYSTEMES DE SE 
CURITE",19,14,“PRESSION" 

581 DATA 24,15,"ENCEINTE",34,14,"Bfl [90613 
RRES“,5,17,"SECONDAIRE",18,19,"REFR 
OIDISSEMENT" ,32,21 ,”7.", 38,5, "7." , "pu 

p. ", " 7.”, "temp"débit *, " ", "pr 

es. ","bar",“rad.”," bq" 

582 MOVE 0,0,1s RESTORE 580sG0gUB 67 [101973 
4sFOR X=1 TO 9sREAD Cl,L1,C2,L2sGOS 

UB 612s NEXT s WINDOW 41,23,32,3,5s WIN 
DOW 42,34,39,15,23sWINDOU 43,17,32, 

16,17s WINDOW 44,2,21,3,5s WINDOW 45, 
17,39,9,12s INK 3,26,13 

583 PEN 2s FOR >1 = 1 TO 13s READ cl,c2, [122933 
xi:LOCATE cl,c2:PRINT xi s NEXT xsFOR 

x = 1 TO 5sREAD xi,yisLOCATE 2,9+>ssP 


e<v7e/? <26$ toCATt GoTû 
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RINT xl:LOCATE 2,18+v.:PRINT xt:LQCA 
TE 13,9+xiPRINT y*:LOCAT£ 13,13+>::P 
RINT y$:NEXT:x$="CIRCUIT":LOCATE 3, 

7 i PRINT >:t:LOCATE 3,16:PRINT xt 

584 x«="«T'+CHR*(2541+CHRf<2551:yt = C C129363 
HR*(253)+”C":L0CATE 13,12sPRINT x*: 

LOCATE 13,21 SPRINT xt:LOCATE 30,22: 

PRINT xF:LOCATE 14,11 s PRINT yFiLOCA 
TE 14,20:PRINT yF:LOCATE 31,23:PRIN 
T y* 

585 LOCATE 18,21 :PRINT "pmp.":LOCAT [6010] 

E 18,22:PRINT “debit":LOCATE 18,23: 

PRINT ”dif f.ES”:GOSUB 587:LFS=0 

586 ecran=l: GOSUE< 545:G0SUB 549:G0S [27051 
UE 556:GOTO 560 



587 ' [117] 

588 ‘ Affiche production [1643] 

589 ' 1117] 

590 xF=DECF(mw,"####”):MOVE 0,0,1 s C [7128] 

LS #1 : IF mw>1400 THEN PEN 3:LÔCATE 

25,4:PR INT STRINGF(6,42):PEN lîRETU 
RN 

591 FOR x = l TO 4:yF=MIDF(xF,x,l>:IF [5571] 
yF=" " THEN w=0 ELSE w=VAL(yFI 

592 c=386+l6*x: ON w + 1 GOTO 595,596, [2975] 
597,598,599,600,601,602,603,604 

593 NEXT:RETURN [940] 

594 ’ [117] 

595 GOSUB 605:GOSUB 607:GOSUB 610:G [4454] 

OSUB 611:GOSUB 609:GOSUB 606:GOTO 5 

93 

596 GOSUB 607:GOSUB 610:G0T0 593 [2161] 

597 GOSUB 605:GOSUB 607:GOSUB 608:G [3926] 
OSUB 609:GOSUB 611 : GOTO 593 

598 GOSUB 605:GOSUB 607:G0SUB 608: [3149] 
GOSUB 610:GOSUB 611 : GOTO 593 

599 GOSUB 606:GOSUB 60B:G0SUB 607: [2125] 
GOSUB 610:: GOTO 593 

600 GOSUB 605:GOSUB 606:G05UB 608: [3467] 


GOSUB 610:GOSUB 611-.G0T0 593 

601 GOSUB 605:GOSUB 606:GOSUB 609: 
GOSUB 611 :GOSUB 610:G0SUB 603::G0T0 

593 

602 GOSUB 605:GOSUB 607:G0SUB 610: 
GOTO 593 

603 GOSUB 605:GOSUB 608:GOSUB 611: 
GOSUB 606:GOSUB 607:GOSUB 609:GOSUB 

610 

604 GOSUB 608:GOSUB 606:G0SUB 605:G 
OSUB 607 :GOSUB 610:G0SUB 611 : GOTO 5 
93 

605 MOVE c,356:DRAWR 12,0:M0VER -2, 
-2!DRAWR -8,0:RETURN 

606 MOVE c,356:DRAWR 0,-14:M0VER 2, 
2:DRAWR 0,10:RETURN 

607 MOVE c + 12,356:DRAWR 0,-14:MOVER 
-2,2:DRAWR 0,10:RETURN 

608 MOVE c,342:DRAWR 12,0:RETURN 

609 MOVE c,342:DRAWR 0,-14:M0VER 2, 
2:DRAWR 0,10:RETURN 

610 MOVE c + 12,342:DRAWR 0,-14:MOVER 
-2,2:DRAWR 0,10:RETURN 

611 MOVE c,32B:DRAWR 12,0:M0VER -2, 
2:DRAWR -8,0:RETURN 

612 ' 

613 ' Fenetre graphique 

614 '• 

615 cl=(cl-0.25)*16:c2=(c2-0.751*16 
: 11=400-(11-0.25)*16:12=400-(12-0.7 
51*16 

616 MOVE c 1,11,1 : DRAW c2,U:DRAW c2 
,12:DRAW cl,12:DRAW cl,ll:RETURN 

617 ’ 

618 ' Initialisation des variable 
s 

619 ' 

620 Tl=25:PI = 1 :BAR=0:TPRES=25:RAD1= 
200:ZVAPPRES=-1:TVAP=-1:DEBI=0:DEB2 
*0 

621 FP1=0:FP2=0:ZENCPRES=1 :ZRADINT* 
0.00002:RAD2=0:B0RE=47sDEBREF=0:RAD 
PISC=0 

622 ZAIRRAD=0:ZREFRAD=0:MW=0:DES*0: 
FPR=0:DISP=l45:0CC=0:BLES=0: ZIT2=0 

623 ECAN*100:EBAR=100:CUVE=100:FISC 
=100:PMP1=100:TUYVAP=100:GENE=100:P 
RES=100 

624 RESIST=100:PROT=100:CIR 1 = 100:EB 
ORE=100:CIR2=100:PMP2=100:ECOND=100 
: ZCENTRALE*100:PNT=100 

625 ZIT1=0:REST0RE 629:FQR X=0 TO 7 
:READ OUV(X1,OUVF(X1 :NEXT X 

626 BAR2=BAR:B0RE2=B0RE:TPRES2=0:Fl 
=0:EVP0P=0:C0NTAM=0:FD=0:FD1=0:CD=- 
1 :BUT=-1 

627 MPR0=0 

628 RETURN 

629 DATA 8 ,"PMP1", 8 ,”PMP2",20,"COND 
",60,"GENE",5,"B0RE",20,"CIR2",10,“ 
PRESS",45,“CIR1" 

630 1 

631 ' Dessine plan centrale 

632 ’ 

633 GOSUB 674 : MODE 0l2=HIMEM*l 

634 RESTORE 642:F0R y=0 TO 15:READ 
x: INK y ,x,x:NEXT 


Suit* p. 


[5277] 


[2169] 

[4766] 


[4045] 


[2477] 

[16801 

[5028] 

[26031 

[32761 

[4432] 

[25921 

[117] 

[10861 

[117] 

[39961 


C39331 

[117] 

[14301 

[117] 

[4085] 


[3711] 


[35761 

[4507] 


t'6174] 


[23271 

[3691] 


[643] 

[555] 

[53071 


[117] 

[ 1202 ] 

[117] 

[1702] 

[25021 
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S eul espoir de survie 
d’AU-Gator. reptile 
singulier égaré en 
des lieux délicieu¬ 
sement hostiles : 
ramasser en un temps limite un 
nombre suffisant de clefs 
réparties oans chacun des 
douze tableaux, où une récolte 
fructueuse ouvre le passage ' 
donnant accès au tableau sui¬ 


vant. Notre sympathique alliga¬ 
tor, qui évolue de gauche à 
droite et chute logiquement en 
l'absence de sol, est pourvu de 
l'étonnante faculté de générer 


à ta demande (Fire ou Copy), 
des caisses sur lesquelles 
monter pour atteindre les 
endroits inaccessibles. Il peut, 
en outre, détruire lesdites cais¬ 
ses avec ses pieds ou avec sa 
tête si nécessaire. 

Certains tableaux hébergent un 
ou deux monstres vicieux aux 
déplacements erratiques. Si le 


nombre de clefs affichées n 'est 
pas suffisant pour ouvrir une 
porte, c 'est le télescopage des 
deux bestioles qui crée la clef 
manquante en un endroit aléa¬ 


toire du tableau. N.B. face à 
une situation bloquée, ESC 
évite l'attente angoissée de la 
fin du temps imparti. 


Sauvegarde 

Sauvez le programme Basic de 
présentation (facultatif) sous un 
nom de votre choix (pourquoi 


pas * ALIGA TOFt •), puis le pro¬ 
gramme principal sous le nom 
« AUI ». 

Entrez ensuite par Amsaisie 
(reportez-vous à son mode 


d'emploi) le listing de codes 
hexadécimaux. Spécifiez 9F70 
comme adresse de début et 
sauvez le langage machine par 
l'option « S » sous le nom 
« AU ». Si vous ne souhaitez 
pas saisir en une seule fois la 
totalité des codes, morcelez 
votre travail en créant plusieurs 
fichiers (AUI, ALI Z, etc.). Ces 
derniers devront ultérieure¬ 
ment être chargés à ta suite 
après un MEMORY S9F6F et 
sauvegardés ainsi dans un 
fichier unique: 

SAVE-ALI",b,S9F70,S3E0 


Création de tableaux 
supplémentaires 

Soit trois lignes de datas pour 
chacun des tableaux. L'écran 
de jeu, divisé en 19 colonnes 
sur 11 lignes, est subdivisé en 
deux sous tableaux, l'un à gau¬ 
che de 10 colonnes et l'autre à 
droite de 9 colonnes (toujours 
sur 11 lignes). Sur ces tableaux 
est effectuée une numérotation 
des colonnes comme pour un 
CHRÎ redéfini. Comme il y a 

10 colonnes et non 8, ta der¬ 
nière est à 512 et l’avant der¬ 
nière à 256. On commence par 
effectuer le calcul des 

11 lignes d’après te dessin des 
caisses, ce qui nous donne les 
11 premiers nombres d'une 
ligne DATA, idem avec le 
deuxième tableau de 9 colon¬ 
nes. 

Voici créée la première ligne 
DATA de 22 nombres. Même 
opération avec les briques pour 
obtenir ta deuxième ligne DATA 
de 22 nombres. La troisième 
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ligne contient comme suit, les 
abscisses (X entre 1 et 19) et 
ordonnées (Y entre 3 et 23, 
chiffre toujours impair) de plu¬ 
sieurs éléments. 

DATA XP, YP, NC, XC. YC, XC. 
YC, X, Y, NM. MX, MY 
XP, YP: coordonnées de la 
porte, 

NC: nombre de clefs (N = 2 


dans notre exemple), 

XC, YC: coordonnées des clefs 
(autant qu'il y a de clefs), 

X, Y: coordonnées du 
personnage, 

NM: nombre de monstres (2 
maximum, 0 = aucun 

monstre), 

MX, MY: coordonnées du ou 
des monstres. 


Variables 

du sous-programme 
TaB+1 

CA = 3: nombre de caisses 
que les monstres crèveront par 
moment. Ce cas de figure est 
géré par les interruptions: si CA 
n 'est pas défini, le cas ne se 
présente pas. Définir un CA 


élévé, augmente d'autant la dif¬ 
ficulté du tableau. 

NBKEY = 6 :CH = 5: ce cou¬ 
ple de variables concerne les 
tableaux où toutes les clefs ne 
sont pas affichées. CH précise 
le nombre de clefs que les 
monstres créeront en se 
touchant. 

Claude Le Moullec 


10 REM 11111 : : i : : 11 : : 1111111 11691] 

20 REM i i 1919] 

30 REM i PRESENTATION ! 11647] . 

40 REM ! ! 1419] 

S0 REM t : l : !i: : 111 )i■ 1111:11 11691] 


60 ENT 1,3,-1,3,3,1,1 sENV 1,2,1,1,1 13121] 
5,-1,1 s ENV 2,3,0,2,8,-l,2sENV 3,2,- 
8,6 

70 DETINT a-z:EVERY 6,2 G0SU8 860 11313] 

80 MODE 1 s INK 0,0sB0RDER Os INK 1,0s 139031 
INK 2 2:1 NK 3 19 

90 aî="L.M.C"s' x=204s y=280s GOSUB 120 12606] 
100 LOCATE 1,1sPRINT" "sIN 12825] 

K 1, 6 sS0SUB 200 

110 LOCATE 17,17sPEN 3sPRINT”PRESEN 12787] 
T S”s GOTO 320 

120 a=LEN <a$)s a 8 =a *8 11636] 

130 LOCATE 1,1s PEN 1 s PRINT aPpPEN 1 1944] 
1 

140 tx=xsy2=398 1634] 

150 FOR 1*1 T0 8 s x2=0s FOR g = l TO a 8 11083) 
160 IF TEST! x2,y2)=l THEN PLOT x+4 19399] 
,y,2sPL0T x +4,y-2sPLOT x,y-2sPL0T x 
+2,y-2sPL0T x+4,y-4sPL0T x+2,y-4sPL 
0T x,y-4 s PLOT x-2,y+2,3:PL0T x,y+2s 
PLOT x+2,y+2s PLOT x+2,y:PL0T x-2,ys 
PLOT x,y 

170 x=x+6sx2=x2+2 11284] 

180 NEXT g s y=y- 6 stx=txsy2=y2-2sx=tx 12056] 

* NE X T 1 

190 RETURN 1555] 

200 SYMBOL AFTER 32s DIM A<15)s L0CAT 13269] 

E 13,14s PEN 1 s a*="SOFTWARE” 

210 FOR H=1 T0 LEN! a*)s FOR j=Q T0 7 11993] 
220 x=8»(ASC(MID4(a*,h)}-32) 11811] 

230 x$*BIN«(PEEK<HIMEM+l+x+j>, 8 ) 12566) 

240 i®*=.FOR k = 1 T0 8 s1»=MID*(x t , 12391] 

K, 1 ) 

250 im*=im*+l*+lt:NEXT K 11509] 

260 a(j*2)=VAL("&X'+LEFTX(imt , 8 )) 11872) 

270 a(j*2+l)*VAL("I,X"+RI6HT«<i«$,8> 12129) 
)s NEXT J 

280 SYMBOL 250,a(0),a(2),a(4),a(6), 12932] 
a ( 8 ) , a ( 10 ) ,a(12),a(14) 

290 SYMBOL 251,a ( 1 ),a(3),a 15) ,a (7), 12119] 
a(9),a(11),ai13),a < 15) 

300 PRINT CHR$(250); s PRINT CHR4I251 12246) 
)JINEXT H 

310 RETURN 1555] 

320 SYMBOL AFTER 200 11432] 

330 SYMBOL 201,0,0,0,0,1,1,0,1 11667] 

340 SYMBOL 202,14,31,123,245,226,25 12905) 
5,127,103 

350 SYMBOL 203,128,224,192,224,252, 13220] 
255 255 224 

360 * SYMBOL 204,0,0,0,58,239,255,254 12001] 


188 

370 SYMBOL 205,3,3,1,0,1,3,15,62 11814] 

380 SYMBOL 206,108,113,191,220,179, 12683) 
119,127,248 

390 SYMBOL 207,15,252,128,0,192,224 12530] 
,253,195 

400 SYMBOL 208,240,0,0,0,0,0,0,128 11947] 

410 SYMBOL 209,124,249,0,0,0,0,0,0 t15553 
420. SYMBOL 210,231,223,0,0,0,0,0,0 12016] 

430 SYMBOL 211,63,255,0,0,0,0,0,0 12345] 

440 SYMBOL 212,192,192,0,0,0,0,0,0 11836] 

450 alilt=CHR*(201)+CHR$(202)+CHR$< 13744] 
203) + CHRS 1204) 

460 a)i2t=CHR*(205)+CHRX(206)+CHRXi 12118] 
203) +CHRX ( 208 ) 

470 ali34*CHRt(209)+CHR$(210)+CHR4< 12257] 
211) a-CHR* (212) 


480 FOR H=Û TO 640 STEP 160s X = H 12090] 
490 Y=302s GOSUB 540 1751] 

500 Y=14:S0SUB 540sNEXT 110353 

510 FOR H=0 TO 640 STEP 480sX*H 11840) 

520 Y = 110s GOSUB 540sY=206sGOSUB 540 12084] 
530 NEXTiGOTO 600 11015] 

540 PLOT X,Y,2s DRAW 160+X,Y:DRAW 16 13249) 
0+X,96+YsDRAW X,96+YsDRAW X,Y 
550 PLOT X+ 8 ,Y+ 8 s DRAW X+152,Y+8sDRA 14964] 


W X+152,Y+88s DRAW X+8.Y+88sDRAW X+8 
Y + 8 

560 PLOT X,Ys DRAW X+8,Y+8sPL0T 160+ 17446] 
X,Ys DRAW X + 152,Y+8sPL0T 160 + X,96 + Y s 
DRAW 152+X,88+YsPLOT X,96+YsDRAW 8+ 

X 88 Y 

570 PLOT -10,-10,3:TAGs MOVE 32+X.68 15385] 
+Y SPRINT ali11 1 s MOVE 32+X,52+YsPRIN 
T ali24’s ' 

580 MOVÈ 32 + X,36 + YSPRINT ali3Fî:PL0 13831] 
T —10, — 10,1sMOVE 16+X,28 + YSPRINT "A 
LIGATOR”;sTAGOFF 

590 RETURN 15553 

600 PLOT 638,18,2sDRAW 638,398:PL0T 12158] 

- 10 ,- 10,0 

610 WHILE 1NKEYI=“”sWEND 11607) 

620 MODE 1 s LOCATE 17,1sPEN 1 s PRINT 14808] 
“ALIGATOR"sLOCATE 17,2sPEN 3sPRINT 

630 PEN 2sLOCATE l,4sPRINT" Ramas 18221] 
ser des ciels peur passer au tab 
leau suivant s Classique i!!." 

640 PEN 2s LOCATE 1,7s PRINT” Un de 16383) 
cor genre echel1 es/passerel1 es s Ar 
chi Classique ! ! !" 

650 LOCATE l,10sPRINT" Ne vous y 13489] 
liez pas...car ce jeu est dement." 

660 LOCATE 1,12:PRINT" Sue puis-j 14385) 
e vous en dire ?" 

670 LOCATE 1,14:PRINT” Rien ! Rie 143573 
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n de rien.Je ne dirai rien." 

680 LOCATE 1,16sPRINT" Ah si! Une [21353 

chose... " 

690 LOCATE 1,18 : PR I NT” J’ai eprou [120323 
ve un plaisir sadique ,en pensant 
a vos nuits blanches ,1 or s de la cre 
ation des 12 tableaux." 

700 LOCATE J ,22sPRINT” Et pourtan £64373 
t,je le jure.Ils ont tous leur sol 
ut ion. ” 

710 LOCATE 32,25:PEN 1 sPRINT "<ENTE £ 18393 
R>" 

720 «HILE INKEYt=""s «END C16073 

730 CLSiLOCATE 15,1 !PRINT"D£PLACEME £52633 
NTS" : PEN 2:L0CATE 15,2: PRINT 11 ****** 

»«♦**»" 

740 LOCATE 1,4îPRINT"Joystick”sPEN C36723 

1 s LOCATE 1.5! PRINT”-* 

750 LOCATE 4,7sPRINT CHR*<240):LOCA [48213 

TE 10,7:PRINT”= creve carton avec 

tete” 

760 LOCATE 4,9sPRINT CHR* <241):LOCA [63013 
TE 10,9:PRINT"= écrasé carton avec 
pieds" 

770 LOCATE 2,11:PRINT"<FIRE> = cr [56773 
eer un carton pour monter" 

780 PEN 2:L0CATE 1,14s.PRINT“Clavier [47563 

":PEN 1 i LOCATE 1,15 ! PR INT"-" 

790 LOCATE 4,16:PRINT CHR»(240)iLOC [52583 
ATE 10,16 : PR I NT * = creve carton ave 


10 

REM 

:::::::: 

: : 

• • 

:::::: 

[16913 

20 

REM 




î 

[4193 

30 

REM 

A L I 

G A T 

0 R : 

[14263 

40 

REM 




; 

[4193 

50 

REM 

CLAUDE 

LE 

MOULLEC : 

£20313 

60 

REM 




: 

[4193 

70 

REM 

:::::::: 

: : 

■ : 


[16913 

80 

REM 




j 

[4191 

90 

REM 

VARIABLES 

DE 

BASE : 

£20813 

100 REM 




S 

[4191 

110 REM 

:::::::: 

: : 

: : 


[16913 


120 MEMORY &9FOO:LOAD" ! AL 1. 8 IN" ,lc9F [79071 
70îCLS!LOCATE 6 ,1 !PRINT"JOYSTICK... 

.[ J 3"!LOCATE 6 ,4 :PRIN 

T”CLAVIER.[ C 3 

130 a*=INK£Y*: IF a»*"" THEN 130 U4063 

140 a*=UPPERt <at)! IF a*=”J" THEN 17 115223 
0 

150 IF a»="C" THEN POKE &A340,1:G0T [23193 
0 170 

160 GOTO 130 [3713 

170 DEFINT a-îiCALL LBBFF:MODE 0:B0 [18653 
RDER 0 

180 INK 0,0:INK 1,26s INK 2,13:INK 3 [51003 
.24!INK 4,6:INK 5,16s INK 6,18: INK 7 
,9: INK 3,2:INK 9,11 s INK 10,14:INK 1 
1,8s INK 12,4:INK 13,3!lNK 14,4:INK 
15,0 

190 DEF FN po(x,y)=&C002+(y-1)«80+( [12773 
x-1)»4 

200 IF PEEK <*,A340> = 1 THEN ga= 8 :da= [47403 
! : ht =0: ba=2:F e=9 ELSE ga=74:da=75: h 
i=72:ba=73:te=76 

210 DIM sp(15): FOR h=0 TO 14:sp(h + 1 [29223 
) =69F70* (h*■ 65) : NEXT 

220 DIM jeu <21,13) s DIM alKlii [11053 


c tete" 

800 LOCATE 4,18:PRINT CHR»(241):LOC [49733 
ATE 10,18:PRINT*» écrasé carton av 
ec pieds" 

810 LOCATE 2,20sPRINT"<C0PY> = cr [39713 
eer un carton pour monter’ 

820 PEN 3s LOCATE 6,22:PRINT STRING» [22893 
(30," = ” ) 

830 PEN 2:10CATE 30,25sPRINT“<ENTER [24023 
>" 

840 «HILE INK£Y*="":«END [16073 

850 RUN"! ali1” [5333 

860 READ ai IF a=9 THEN RESTOREiGOTO [23333 
860 

870 IF a>2 THEN b=a:READ a [11913 

880 IF a=0 THEN SOUND 28,0,12,0iSOU [35411 
ND 42,b,12,13,2,ltSOUND 49,b,12,7,3 
sRETURN 

890 IF a=1 THEN SOUND 28,0,12,13,1, [32963 
,31 ELSE SOUND 28,0,12,13,1,, 1 
900 SOUND 42,b,12,13,2,l:S0UND 49,b [33163 
,12,7,3:RETURN 

910 DATA 451,1,0,2,0,1,1,2,1,301,1, £49183 
0,2,2,1,0,2,0,338,1,0,1,0,1,1,1,1,5 
06,2,0,2,2,2,0,1,0,451,2,0,2,0,2,0, 
2,0,451,2,0,2,2,2,0,1 

920 DATA 0,338,2,0,2,2,2,0,2,0,338, [55683 
2,0,2,2,2,0,2,0,506,1,0,2,0,1,0,2,0 
,506,1,0,2,0,1,0,2,0,451,1,1,1,1,1, 
1,1,1,451,1,1,1,1,1,1,1,1,9,9 


230 TR»=CHR» (22) +CHR» ( 1 ) [8063 

240 NR»=CHR»(22)+CHR*<0) [7003 

250 TEMPS*150!SC=0:c1ee=0itt = 150:FI [25293 

N=0: VIE=5 

260 ENV 1,100,3,1:ENT 1,100,2,2 [10213 

270 ENT 2,10,-2,2:ENV 2,10,-1,2 [14233 

280 ON BREAK GOSUB 4090:REM il ne T 154183 

audra écrire cette ligne que lorsqu 
e le prog sera parFaitement au poin 
t 

290 ph«(l)="LIS£Z ALIGATOR" [18523 

300 ph*(2)«'JOURNAL FREEWARE" [16943 

310 ph»(3>=”P0UR VOTRE CPC" [13193 

320 GOTO 3730 [5113 

330 REM ::s::s:i : [16913 

340 REM : : [4193 

350 REM : DESSIN DE BASE : [21283 

360 REM ! i [4193 

370 REM : : s.::::::::::::: [16913 

380 FOR h=l TO 23 STEP 2 £10303 

390 CALL &A30C,FN po(1,h)-2,sp(7) £18983 

400 CALL 6A30C.FN po(20,h>-2,sp(7> [19193 

410 NEXT [3503 

420 FOR h=l TO 20 [8623 


430 CALL IA30C,FN po(h,1)-2,sp<7) C14203 
440 CALL »A30C,FN po(h,24)-2,sp(7)I [16993 
NEXT 

450 GOSUB 3670:GOSUB 460:G0T0 560 [13243 
460 FOR g=l TO 19:FOR h=3 TO 23 STE [14113 
P 2 

470 CALL &A30C,FN po(g,h) ,sp(11) [14663 
480 NEXT hiSOUND l,INT<RND«600)+60, [24223 
5,15 s NE X T G 

490 FOR g=l TO 21 : jeu(g,1)=10:jeu (g [38963 
,13)=10:NEXT 

500 FOR g=l TO 13ijeu(1,g)«1Oljeu(2 £31713 
l,g)=10:NEXTiRETURN 
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510 REM ..:::::::::: 

520 REM s i 

530 REM î TABLEAU *1 ! 

540 REM ! : 

550 REM 

560 ON ta SOTO 570,590,610,630,650, 
670,700,720,740,770,790,810 
570 RESTORE 4170iG0SUB 880 
580 PEN 1 :LOCATE 1,1 :PRINT"A/1 0/5 

200 00000"sGQSUB 343O:G0TÛ 1210 
590 RESTORE 4210:G0SUB 380sca=2 
600 PEN. 1 sLOCATE 1,1 ! PRINT”A/2 0/7 
200 00000“:GOSUB 3430:G0T0 1210 

610 RESTORE 4250!GOSUB 880 
620 PEN 1 !LOCATE 1,1 !PRINT”A/3 0/6 
200 00000“:GOSUB 3430iG0T0 1210 

630 RESTORE 4290:G0SUB 880:ca=l 
640 PEN 1 !LOCATE 1,1 s PRI NT"B/1 0/5 

200 00000":GOSUB 3430:GOT0 1210 

650 RESTORE 4330:GOSUB 880 
660 PEN 1 !LOCATE 1,1:PRINT“B/2 0/5 
250 00000”!GOSUB 3430ite«ips=250: 

SOTO 1210 

670 RESTORE 4,370:G0SUB 380 
680 PEN ULOCATE 1,1 : PR 1 NT * B/3 0/2 

200 00000"!GOSUB 3430 

690 nbkey=2:ch=liGQTO 1210 
700 RESTORE 4410.-G0SUB 880:ca=2 
710 PEN 1iLOCATE 1,1iPR1NT"C/1 0/5 

200 00000"iGOSUB 3430iGOTO 1210 


[1691] 

[419] 

[574] 

[4193 

[1691] 

[2060] 

[13271 

[3202] 

[1666] 
[3461 1 

[10191 

[3211] 

[2954] 

[38971 

[1457] 

[46581 


[20491 

[22891 

[20091 

[14081 

[35141 


720 RESTORE 4450iG0SUB 880:ca=4 [1417] 

730 PEN 1 :LOCATE 1,1iPRINT”C/2 0/9 [3739] 
200 00000"!GOSUB 3430îG0T0 1210 

740 RESTORE 4490iG03UB 380 [17451 

750 PEN 1 !LOCATE 1,1iPRINT"C/3 0/5 (29701 

200 00000"!GOSUB 3430 

760 nbkey=5:ch=4:GOTO 1210 U1561 

770 RESTORE 4530:G0SUB 880 [10191 

780 PEN 1 !LOCATE 1,1 1 PRINT”D/1 0/6 (43141 

200 00000"!GOSUB 343O:G0T0 1210 

790 RESTORE 4570:GOSUB 880:CA=4 [1417] 

800 PEN 1iLOCATE 1,1 « PRINT"D/2 0/6 [36411 

200 00000"!GOSUB 3430iG0T0 1210 

310 RESTORE 4610iG0SUB 880:CA=2 [29611 

320 PEN liLQCATE 1,1 :PfiINT”D/3 0/8 [30901 
200 00000":G0SUB 343OiG0T0 1210 

830 REM ! : : :... [16911 

840 REM ! : (4191 

850 REM i DESSIN TABLEAU ! [19521 

360 REM i ! [419] 

370 REM ! i ! i ! : : : ! ! ! ! 1 ! ! : : ! ! i ! [16911 

880 spt=8:cx=4:G0SUB 890:spt=7:cx=5 [31051 
!GOSUB 890!GOTO 1050 

890 FOR h=l TO llîREAD al [14071 

900 al*(h)=BIN*(al,10):NEXT [11471 

910 FOR h=1 TO 11:IF al* (h) = ”000000 [2847] 
0000” THEN 960 

920 FOR 9=1 TO 10 [787] 

930 b1*=M1D*(a 1* t hi,g,1): b 1=VALib 1 * [21451 

) 

940 IF b 1 = 1 THEN CALL &A30C,FN po(g (27091 
. < h * 21 + 11 , sp < spt ):jeu(g<-l,h+l!=cx 
950 NEXT g [3771 

760 SOUND 1,INT(RND*600)+60,5,15:NE [1890] 

970 FOR h=l TO llîREAD al [14071 

980 al*(h>=BIN*(al,9):NEXT [667] 

990 FOR h=l TO llilF a 1 *(h) = ”000000 C30101 
000” THEN 1040 


1000 FOR 9=1 TO 9 [697] 

1010 bl*=MID*(al*(h), 9 , 1 )lbl=VAL(bl (21451 
*) 

1020 IF bl = l THEN CALL &A30C,FN po( [26071 
g+ 10 ,(h* 2 )+l),sp(spt)ijeu(g+ll,h+l) 

=cx 

1030 NEXT g [3771 

1040 SOUND 1,INT(RND*600)+60,5,15:N [2324] 
EXT h!RETURN 

1050 READ ptx ,pty:CALL !<A30C,FN po( [32111 
ptx,pty>,sp(10)ijeu(ptü + r,pty/2)=5 

1060 READ nbkeyîFOR h=l TO nbkey [11751 
1070 READ a,b :CALL &A30C,FN po(a,b) [26871 
,sp(9):jeu(a+l,b/2)=3 

1080 NEXT h (372) 

1090 READ x,y :CALL &A30C,FN poix,y) [3734] 
,sp(5):jeu(x+l,(y*l)/2)=l 
1100 el=0:nl=0:READ monsilF mons=0 [34611 
THEN RETURN 

1110 IF mons=1 THEN tt=50iG0T0 1140 [27971 
ELSE tt=10 

1120 READ nx ,ny:CALL &A30C,FN polnx (23791 
,ny),sp<14) 

1130 sn=1 :n1 = 1iEVERY 850,1 GOSUB 33 [17793 
70 

1140 READ «x , my : CALL 8.A30C.FN po(»x [1967] 
,*y),sp<13> 

1150 s®=1 :«1 = 1 :EVERY 950,2 GOSUB 33 [20893 


50iRETURN 

1160 REM ::::::::::::::::::::: [16913 

1170 REM ! i (4191 

1180 REM î ROUTINE PRINCIPALE: [22251 

1190 REM i i [419] 

1200 REM [16911 

1210 EVERY 250,0 GOSUB 3460iS0UND 2 (16261 
.50,0,15,2,2,31 

1220 IF ml=l THEN GOSUB 2700 [7643 

1230 IF n 1 = 1 THEN GOSUB 3030 [925] 

1240 IF FIN=1 THEN 3570 [991] 


1250 IF INKEY<ga)=0 THEN sens=l:GOT [14873 
0 1340 

1260 IF INKEY <da)=0 THEN sens=2:G0T [15753 
0 1470 


1270 IF INKEY(ht)=0 THEN 1780 [12623 

1280 IF INKEY(ba)=0 THEN 2000 (19561 

1290 IF INKEY<fe) = 0 THEN 1650 [1326] 

1300 GOTO 1220 (3593 

1310 CALL &A30C,FN po(x1,y 1),sp(11) (20863 

1320 jeu(xi+l,(yl+l)/2)=0:RETURN 117123 

1330 REM : * : ■ A GAUCHE : : : : [729] 

1340 xl=x: yl=y:x=x-1 [12613 


1350 IF jeu(x + 1, <y +1 )/2)=0 THEN GOS C19973 
UB 1310:GOTO 1400 

1360 IF jeu(x + 1,(y+11/2 )=6 THEN GOS [30333 
UB 1310:G0T0 2570 

1370 IF jeu(x + 1,<y + l)/2)=3 THEN GOS [32513 
UB 2450:GOSUB 1310:GOTO 1400 
1380 IF jeu(x + 1,(y-1)/2)=0 AND jeu< [36963 
X+-2, < y — 1 > /2 ) — 0 THEN 1390 ELSE x=x*l 
: GOTO 1220 


1390 GOSUB 1310:y=y-2 [943] 

1400 CALL &A30C,FN po(x,y>,sp(2) [16223 

1410 SOUND 1,300,5,1,1,1,15 [14673 

1420 FOR t=l TO tt:NEXT [20883 

1430 CALL 5A30C,FN po(x,y),sp (4) [1634] 

1440 FOR t=l TO tt:NEXT [20883 

1450 jeu(x + 1,<y+l)/2) = 1 : IF jeu(x + l, [32413 

(y + 3)/2)=0 THEN 2210 ELSE 1220 
1460 REM :::: A DROITE : : : : (4173 
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1470 >: 1 =>: s y 1=y i X =x 1 [1217] 

1480 IF jeu(x+l,(y+l>/2)=0 THEN GOS [1995] 
UB lïlOsGOTO 1530 

1490 IF jeu(x+l,(y+l>/2>=6 THEN GOS [3033] 
UB 1310:GOTO 2570 

1500 IF jeu(x + 1,(y + X)/2)=3 THEN GOS [3257] 

UB 2450:GOSUB 1310:G0T0 1530 

1510 IF jeu(x+1,(y-1)/2)=0 AND jeu( [3479] 

x,(y-1)/2)=0 THEN 1520 EtSE x=x-l:G 

OTO 1220 


1520 GOSUB 1310:y=y-2 [943] 

1530 CALL &A30C,FN poix,y>,sp(1) [1620] 

1540 SOUND 1,300,5,1,1,1,15 [1467] 

1550 FOR t = l TO tt : NEXT [2088] 

1560 CALL RA30C,FN po(x,y),sp<3) [ 1792] 

1570 FOR t = l TO tt : NEXT [2Ô88] 

1580 jeu(x + 1,(y + 1)/2) = 1 ! IF jeu(x + l, [3241 ] 
(y+3)/2)=0 THEN 2210 ELSE 1220 
1590 CALL &BB18:MODE 1 :PEN 1 : END [1640] 

1600 REM :::::::::::::::. [1691] 

1610 REM : : [419] 

1620 REM : CREATION CAISSES : [1799] 

1630 REM : : [419] 

1640 REM [1691] 

1650 ON sens GOTO 1660,1690 [826] 

1660 IF jeu(x,(y+1)/2)=0 THEN 1670 [2202] 

ELSE 1220 

1670 CALL LA30C,FN po(x-l,y),sp(8) [1566] 

1680 jeu (x , <y+-l )/2) =4: GOTO 1220 [1286] 

1690 IF jeu(x+2,(y*1)/2)=0 THEN 170 [34201 
0 ELSE 1220 

1700 CALL &A30C,FN po ix + 1,y),sp(8) [2361] 

1710 SOUND 1,200,3,5 [1258] 

1720 jeu(x+2, (y+1)/2)=4 : GOTO 1220 [1918] 

1730 REM s :::: s :::::::: : [1691] 

1740 REM : : [4193 

1750 REM : COUPS DE TETE : [1210] 

1760 REM : : [419] 

1770 REM ::::::::::::::::::::: [1691] 


1780 IF jeu(x+1,(y-1>/2)=4 THEN 180 [11883 
0 

1790 IF jeu(x+1,(y-1)/2)=3 THEN GOS [2451] 
UB 2450 ELSE 1220 

1800 CALL &A30C,FN poix,y),sp(11> [17793 

1810 CALL S.A30C.FN po (x ,y-1 ) ,sp (5) [1583] 

1820 FOR t=l TO tt/2:NEXT t [14663 

1830 SOUND 1,800,5,12,,,10 [14033 

1840 CALL &A30C,FN po(x,y-1),sp(11) [1717] 

1850 CALL LA30C,FN po (x ,y) , sp (5) [1612] 

1360 FOR t=l TO tt/2:NEXT t [14663 

1870 SOUND 1,800,5,12,,,10 [1403] 

1880 CALL &A30C,FN po(x,yi,sp ( 11 ) [1779] 

1890 CALL &A30C,FN poix,y-2),sp(5) [1964] 

1900 FOR t=l TO tt/2:NEXT t [14663 

1910 CALL 8>A30C,FN poix ,y-2) ,sp ( 11 ) [19723 
1920 CALL &A30C,FN po(x,y),sp(5) [16123 

1930 SOUND 1,800,5,12,,,10 [1403] 

1940 jeu(x +1,(y-1)/2)=0:GOTO 1220 13393 

1950 REM [16913 

1960 REM : : [419] 

1970 REM : ECRASE AVEC PIEDS : [16733 

1980 REM : : (4193 

1990 REM ::::::::::::::::::::: [1691] 

2000 IF jeu<x + !,(y+3)/2)*4 THEN 202 [24163 
0 

2010 IF jeu(x+1,(y+3)/2)*3 THEN GOS [23153 
UB 2450 ELSE 1220 

2020 jeu (x + 1, (y + 1) / 2) = 0: CALL &A30C, [2697] 


FN po(x,y),sp(11) 

2030 CALL &A30C,FN po(x,y+1) , sp (5) [18303 
2040 FOR t = l TO tt/2:NEXT t' U466] 
2050 SOUND 1,700,5,12,,,10 [1369] 
2060 CALL &A30C,FN po(x,y+l),sp(11) [[927] 


2070 CALL !<A30C,FN po (x ,y ) , sp (5) 

2080 FOR t = l TO tt/2:NEXT t 

2090 CALL &A30C,FN po(x , y), sp ( 11 ) 

2100 CALL &A30C,FN poix,y+2),sp(5) 

2110 FOR t = l TO tt/2:NEXT t 

2120 SOUND 1,700,5,12,,,10 

2130 y=y+2:jeu(x+1,(y+1)/2)=1 

2140 SOUND 1,700,5,12,,,10 

2150 IF jeu(x + 1,(y+3)/2)=0 THEN 221 

0 ELSE 1220 

2160 REM : :::::::::::::::::::: 

2170 REM : x 

2180 REM : ALIGATOR TOMBE : 

2190 REM : : 

2200 REM ::::::::::::::::::::: 

2210 jeu(x+l,(y+l)/2)=0:tby=(y+3>/2 
:tom =0 

2220 IF jeu(x+1,tby)=0 THEN to®=to» 
+1 ELSE 2240 

2230 tby=tby+l: GOTO 2220 
2240 IF tom = 1 THEN 2340 
2250 FOR h=l TO to®*2. 

2260 SOUND 1,46+(H*10),3,5 
2270 CALL LA30C,FN po (x,y) ,ep(11) 
2280 IF y >4 AND h >2 THEN CALL 8.A30C 
,FN poix,y — 1),sp(12) 

2290 y=y + l:CALL S,A30C,FN po(x,y),sp 
(5) 

2300 FOR t=l TO tt:NEXT t 

2310 IF y>4 AND h>2 THEN CALL J.A30C 

,FN poix,y-2),sp(ll) 

2320 NEXT h 

2330 jeu(x + l,(y + 1)/2) = 1 : GOTO 2390 
2340 IF sens*1 THEN spt=4 ELSE spt* 

3 

2350 CALL &A30C.FN po'(x , y ) , sp ( 11 > 
2360 y=y+2:CALL LA30C,'FN po(x,y),sp 
(spt) 

2370 FOR t=l TO tt:NEXT t 

2380 jeu(x + 1,(y + 1)/2)* 1 

2390 IF jeu(x+l,(y+3)/2)=8 OR jeulx 

+1,(y+3)/2)=9 THEN 3570 ELSE 1220 

2400 REM 

2410 REM : : 

2420 REM : COMPTAGE CLEFS : 

2430 REM : . :■ 

2440 REM 

2450 clee-clee + 1: IF NBKEY>9 THE^H 24 
80 

2460 PEN 0:LOCATE 6 ,1 :PRINT-CHRP(14 
3):PEN 1 :LOCATE 5,1:PRINT TRI;CLEE 
2470 SC=SC+1:GOSUB 3430:G0T0 2490 
2480 PEN 0:L0CATE 5,1:PRINT CHRK14 
3)+CHRI(143):PEN 1:L0CATE 4,1:PRINT 
TRI:CLEE:GOTO 2470 
2490 IF CLEE=NBKEY THEN 2500 ELSE R 
ETURN 

2500 SOUND 1,2056,60,15 

2510 CALL RA3ÔC,FN polptx,pty),sp (6 

):jeu(ptx+l,pty/2)=6:RETURN 

2520 REM ::::::::::::::::::::: 

2530 REM : - : 

2540 REM : PASSE LA PORTE : 

2550 REM : : 


[16123 

11466] 

[1779] 

[14283 

[14663 

[1369] 

[16803 

[13693 

[2792] 

[1691] 

[419] 

[19763 

[4193 

[16913 

[2890] 

[21133 

[1636] 

[11753 

[716] 

[15623 

C17791 

[15173 

[2079] 


[23.80] 

[2030] 

[3723 

[19403 

(19203 

[17793 

[3037] 

[2380] 

[835] 

[25383 

[16913 

[419] 

[17083 

[4193 

[1691] 

[1929] 

[42813 

[ 1-0333 
[4705] 


[18933 

[1528*3 

[3288] 

[16913 

[419] 

[18441 

[419] 
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2560 REM ! sii : i ! i ! i ! i i : ! i ! ! : ! ! [1691] 
2570 FOR h=0 TO 3:rou=REMAIN (h): NEXT [2096] 
2580 CALL &A30C.FN poiptx,pty),sp 11 [2217] 
0 ) 

2590 SOUND 1,2056,60,15: FOR t = l TO [3019] 
1000:NEXT 

2600 INK 15,18,0:FOR h = l TO 20 [1632] 
2610 SOUND 1,h*10,10,14:NEXT [2075] 
2620 tempe=200:clee=0:ta=ta+l:INK 1 [2162] 
5,0 

2630 ERASE jeu:DIM jeu(21,13):GOSUB [761] 


460 

2640 GOTO 560 [373] 

2650 REM :::::::::::::. [ 1366] 

2660 REM : : [419] 

2670 REM : MONSTRE NR 1 : [844] 

2680 REM : : [419] 

2690 REM .::::::::::::: [ 1366] 

2700 mxl=mx:myl=my [592] 


2710 ON em GOTO 2720,2820,2880,2930 [2169] 
2720 mx=mx+l: IF jeu(mx + 1, imy + 1)/2)= [ 1985] 
1 THEN 3570 

2730 IF jeu(mx+l,(my+l)/2)=0 THEN 2 [1657] 
780 

2740 IF jeu(fflX+l,(my+l)/2)=4 AND ca [5430] 
i 1 >0 THEN cal l=cai 1 -1 : jeu (mx + 1, (my <■ 


1)/2)=0:GOSUB 2760:GOTO 2770 
2750 m>: =m>:-1 [764] 

2760 sm=INT(RND»4)+l:IF em=l OR em= [4706] 
3 THEN 2760 ELSE RETURN 

2770 SOUND 2,50,0,15,2,2,31 [1913] 

2780 CALL îtA30C,FN po (mx 1 ,my 1 ) , sp < 1 [2020] 
1) 

2790 jeu(mxl+l,(mvl+l)/2)=0 [1057] 

2800 CALL &A30C,FN po(mx ,my ) ,sp ( 13) [1842] 
2810 jeu(mx+1,(my+l)/2)=8:RETURN [949] 
2820 my=my+2: IF jeu(mx+1,(my+1)72>= [3352] 
1 THEN 3570 

2830 IF jeu(mx+l,(my+l)/2)=0 THEN 2 [1657] 
780 

2840 IF jeu(mx+l,(my+l)/2)=4 AND ca [5709] 


i1>0 THEN cail=cai1-1 : jeu(mx + 1,(my + 

1)/2)=0:GOSUB 2B60:G0T0 2770 
2850 my=my-2 [542] 

2860 em*INT(RND*4)+l:IF sm=2 OR em = [3086] 

4 THEN 2860 ELSE RETURN 

2870 GOTO 2780 [319] 

2880 mx=mx-l: IF jeu(mx + 1,(my+11/2>= [ 1920] 

1 THEN 3570 

2890 IF jeu(mx+l,lmy+l)/2)=0 THEN 2 [1657] 
780 

2900 IF jeu(mx+l,(my+i)/2)=4 AND ca [5540] 
il>0 THEN cai1=cai1 -1 : jeu(mx + 1,(my + 

1)/2)=0:GOSUB 2920:G0T0 2770 
2910 mx *mx +1 [768] 

2920 sm=INT(RND*4)+l:IF em=3 OR 5»= [2512] 

1 THEN 2920 ELSE RETURN 

2930' my=my-2:IF jeu(mx+1,(my + 1)/2)= [3169] 
1 THEN 3570 

2940 IF jeu(mx+l,<my+l)/2>=0 THEN 2 [1657] 
780 

2950 IF jeu(mx+l,(my+1)72)=4 AND ca [5828] 
il>0 THEN cail*cai1-1 : jeu(mx + 1,(my + 

1)/2)=0:GOSUB 2970:G0TO 2770 


2960 my=my+2 [538] 

2970 sm«INT(RND*4)+l:IF em=4 OR sm= [3907] 
2 THEN 2970 ELSE RETURN 

2930 REM ::::::::: :.::: [ 1366] 

2990 REM : : [419] 

3000 REM : MONSTRE NR 2 : [850] 


3010 REM : : [419] 

3020 REM ..::::. [1366] 

3030 nx l=nx:ny l=ny [898] 


3040 ON en GOTO 3050,3160,3230,3290 C17333 
3050 nx=nx+l:IF jeu(nx+1,(ny +1)/2)= [2202] 
1 THEN 3570 

3060 IF jeu(nx+l,<ny+l)/2)=0 THEN 3 [1514] 
120 

3070 IF jeu(nx+l,<ny+l)/2)=4 AND ca [4491] 
i>0 THEN cai=cai-l: jeu(nx + 1,(ny+1)/ 

2)=0:GOSUB 3100:G0T0 3110 

3080 IF ch>0 AND jeu(nx + l, (ny+1 )72) [2874] 

=8 THEN GOSUB 3490 


3090 nx=nx-I [718] 

3100 en=INT(RND+4) + 1 : IF sn=l OR en= [2585] 
3 THEN 3100 ELSE RETURN 

3110 SOUND 2,50,0,15,2,2,31 [1913] 

3120 CALL !<A30C,FN po (nx 1 ,ny 1 ) , ep ( 1 [1777] 
1 ) 

3130 jeu(nxl+l,(nyl+l)/2)=0 [1106] 

3140 CALL &A30C,FN po(nx,ny),ep( 14) [2032] 
3150 jèu(nx+l,(ny+l)/2)=9:RETURN [2363] 


3160 ny=ny+2:IF jeu(nx+l,<ny+l)/2)= [2297] 
1 THEN 3570 

3170 IF jeu(nx*l,(ny+l>/2)=0 THEN 3 [1514] 
120 

31S0 IF jeu(nx*l,(ny*l>/2)=4 AND ca [4798] 
i>0 THEN cai-cai-1: jeu(nx + 1,(ny+1)/ 

2)=0:GOSUB 3210:GOT0 3110 

3190 IF ch>0 AND jeu(nx + 1,(ny + 1)/2) [2874] 

=8 THEN GOSUB 3490 

3200 ny=ny-2 [889] 

3210 en = INT(RND+4) +1 : IF en=2 OR en= [2941] 
4 THEN 3210 ELSE RETURN 
3220 GOTO 3120 [457] 

3230 nx-nx-l:IF jeu(nx+l,(ny+1)/2)= [3266] 

1 THEN 3570 

3240 IF jeu(nx+l,(ny+l)/2)=0 THEN 3 [1514] 
120 

3250 IF jeu(nx+l,(ny+1)/2)=4 AND ca [52363 

i>0 THEN cai=cai-1 : jeu(nx+ 1,(ny +1)7 

2)=0:GOSUB 3280:GOTO 3110 

3260 IF ch>0 AND jeu(nx + 1,iny +1)/2) [2874] 

=8 THEN GOSUB 3490 

3270 nx=nx+l [929] 

32B0 en=INT(RND+4) + 1 : IF en=3 OR en= [22223 

1 THEN 3280 ELSE RETURN 

3290 ny=ny-2: IF jeu(nx + 1,(ny + 1)/2)* [2421] 

1 THEN 3570 

3300 IF jeu(nx+l,(ny+1)/2)=0 THEN 3 [15143 
120 

3310 IF jeu(nx+ 1 ,(ny+1)/2)=4 AND ca [51643 
i>0 THEN cai=cai-1 : jeu(nx +1,(ny +1 )/ 

2)=0:GOSUB 334C:G0T0 3110 

3320 IF ch>0 AND jeu(nx + 1,(ny + 1)72) [2874] 

=8 THEN GOSUB 3490 

3330 ny=ny+2 [835] 

3340 en=INT(RND*4)+l:IF en=4 OR en= [29953 

2 THEN 3340 ELSE RETURN 

3350 e»=INT(RND*4)+l:cail=ca:RETURN [8933 

3360 REM UN OS ? TEL 96 38 94 24 (d [23901 
emandec CLAUDE) 

3370 en=INT(RND+4) + 1 :cai=ca:RETURN [8943 


3380 REM ::::::::::::::::::::: [16913 

3390 REM : : [419] 

3400 REM : TEMPS7SCORES/ETC : Cl 1703 

3410 REM : - : [4193 

3420 REM [1691] 


3430 PEN 0:IF SC>99 THEN LOCATE 16, [7406] 
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1!PRINT CHRI(143)+CHRI(143)+CHRI<14 
3)iPEN 1 :LOCATE 15,1 :PRINT TRI;SC;N 
RI:RETURN 

3440 IF SC>9 THEN LOCATE 17,1J PRINT 
CHRI 1143) eCHRI 1143) : PEU 1:LOCATE 1 
i,IlPRINT TR4;SC:NRI:REÏURN 
3450 LOCATE 1S,1 ;PRINT CHRfil43):PE 
N 1 :LOCATE 17,1 SPRINT TRI;SC;NR*: RE 
TURN 

3460 DI:T£MPS=TEMPS-5:PEN IsLOCATE 
10,1 : PRINT NRI; TEMPS; PRINT CHRH7) 
3470 1F TENPS<5 THEN Fin = l: El :RETUR 
N 

3430 El :RETURN 

3490 chi'.* INT(RND*18) 4 1 ;chy*INT(RND* 
11)+1:IF jeufchx,chy)<>0 THEN 3490 
3,500 FOR 5u = l TO !5:S0UND l,50-sd,l 
,5:NEXT 

3510 CALL iA30C,FN po<chx-1,(chy*2> 
-l),sp(9):ch=ch-!:jeu(ch>:,chy)*3:R£ 
TURN 

3520 REM s::::;:;:::::::::: 

3530 REM ; : 

3540 REM : VIE -1 : 

3550 REM ; ; 

3560 REM .: 

3570 FOR h=0 TO 3:mu*REMAIN(h):NEXT 
3530 Fin*0 

3590 vie*vie-l: BORDER 26;INK 0,26;I 
NK 1,26:INK 2,26 

3600 OUT iBCOO , 2; DUT 8.BD49,49; SOUND 
4,1500,50,7,0,0,10;QUT tBC00,2:0UT 
6BB49,46 

3610 FOR t=! TO 4000:NEXT t 

3620 BORDER 0;INK 0,0:INK 1,26;INK 

2,13 : cai1*0;cai=0 

3630 GOSUB 3670:£RASE jeu:ERASE ail 

: DIM jeu(21,13); DIM all(ll) 

3640 FOR t=l TO 2000:NEXT t 
3650 TEMPS*150:CL£E=0:c a = Û 
3660 IF VIE=0 THEN 3730 ELSE GOSUB 
460:GOTO 560 

3670 PEN 1:LOCATE 1,1:PRINT” ONE PL 
AVER / MAN ”: LOCATE 13,1; PRINT VI 
E:RETURN 

3630 REM : : : : : : : : : : : : : : : : : : : : : 

3690 REM : : 

3700 REM : MENU CARREFOUR : 

3710 REM ; : 

3720 REM 

3730 DATA ici 13,tel !9,ic2a3.ic2a9,t 
c433,tc439 

3740 CLS:RESTORE 3730:F0R h = l TG 3 

3750 READ posil,posi2 

3760 CALL &A30C,poei1,ep(4) 

3770 CALL tA30C,posi2,sp(3) 

3780 CALL iA30C,posi2,sp(3):NEXT 
3790 RESTORE 3730:FOR g*l TO 3:READ 
posi1,posi2 

3800 FGR h=0 TO 32 STEP 2:CALL iA30 
C,posi1-h,sp(2) 

3810 CALL iA30C,posi2+h,sp(l) 

3320 SOUND 1,300.5,1.1,1.15 
3830 FOR t = i TO 100:N£XT 
3840 CALL iA30C,posi1-h,sp(4) 

3350 CALL iA30C,posi2*h,sp<3 ! 

3860 FOR t = l TO lOOsNEXT 
3870 CALL 4A30C,posi1-h,spt11i 
3SS0 CALL iA30C.posi2*h.sp(! 1i 
3890 NEXT h : CAL L iA30C,posii - h,sp(4 


I58483 

C4006I 

[33951 

[35463 

[4163 
[1964] 

19313 

[42783 


[13663 

[4191 

[6473 

[4193 

[13663 

[20963 

[2293 

[19333 


[30573 


[12223 

[43863 

[43733 

[16763 

U7713 

[30443 

[50943 


[16913 

[4193 

[12913 

[4191 

[16913 

[21101 

[15813 

[1354] 

[17553 

[16693 

[25923 

[33413 


[26733 


[16383 
11467) 
[11253 
[22123 
C1634 3 
[11253 
[21843 
[16233 
[18503 


3900 CALL iA30C,posi2+h,sp(3) [16343 

3910 GOSUB 3920:NEXT GlGOTC 3950 [10883 

3920 LG*LEN<PHI(G>):COUL=INT(RND*13 [15823 
1 + 1 

3930 CENT*(20-LG)72:LOCATE CENT+1,6 [28293 
*5; PEN COUL:PRINT PHI(G) 

3940 RETURN [5553 

3950 PEN 2:L0CATE 3,20:PRINT "CHOIX [24863 
DE L'ARENE" 

3960 PEN 3:LOCATE 4,25:PRINT"A - B [13433 
— C - D* 

3970 vie=5 [5623 

3980 AI=INKEYI;IF AI*"" THEN 3980 [15243 

3990 AI=UPPERI(AI): IF AI = "A" THEN T [27683 
A=1:CLS:GOTO 380 

4000 IF A4="B“ THEN TA=4:CLS:GOTO 3 [16833 
80 

4010 1F AI="C" THEN TA=7:CLS:GOTO 3 [7533 
80 

4020 IF AI*"D" THEN TA*10:CLS:GOTO [25283 


380 

4030 GOTO 3980 [4773 

4040 REM [16913 

4050 REM : : [4193 

4060 REM : TOUCHE BREAK : [11973 

4070 REM : ; [4193 

4080 REM : ; ; : : : : : : : : : ; : : : : : : [16913 

4090 FIN = 1 :RETURN [1663 


4100 REM POUR LE CAS OU VOUS NE POU (65123 
VEZ PLUS BOUGER,POUR NE PAS ETRE OB 
LIGE D'ATTENDRE LA FIN DU TEMPS IMP 


ARTI 

4110 REM ::::::::::::::::::::: [16913 

4120 REM : : [4193 

4130 REM : DATAS DES 12 TAB : [14793 

4140 REM : : [4193 

4150 REM :::::::::::::::. [16913 

4160 REM TAB 1 C8623 


4170 DATA 0,896,0,31,0,0,0,32,80,47 [32653 

,0,0,0,0,0,0,0,0,16,40,464,0 

4130 DATA 0,0,0,0,0,0,0,80,0,80,0,0 [29333 

,3,0,4,0,0,0,40,0,40,0 

4190 DATA 19.3,5,1,3,6,7,17,7,5,19, [19453 
15,19,10,7,0 

4200 REM ::::: TAB 2 ::::::: [10193 

4210 DATA 0,908,0,0,0,0,0,0,4,0,0,0 C27653 
,508,0,0,0,0,0,1,32,1,0 

4220 DATA 0,112,0,0,0,63,544.32,33, [2834] 

32,32,0,3,0,0,0,487,0,0,6,0,0 

4230 DATA 19,3,7.1,3,1,13,8.17,10,1 [2728] 

7.14.17.19.15.19.19.1.23.1.15.23 

4240 REM ::::: TAB 3 [8913 

4250 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 [28863 

,0,511,511,511,256,0,0,0,0 

4260 DATA 0,33,33,33,545,49,33,97,3 [34883 

3,30,33,0,510,0,0,0,0,255,0,0,0,0 

4270 DATA 19,23,6,1,9,4,15,6,11,9,2 [20893 

3.11.13.19.13.3.23.1.17.23 

4280 REM ::::: TAB 4 ::::::: (10183 

4290 DATA 0,8,192,0,0,0,32,32,0,0,1 [25153 

29,0,7,0,0,128,320,128,0,0,8,0 

4300 DATA 0,768,1,1,144,0,2,260,384 [32083 

,16,16,64,64,0,24,8,0,4,8,192,1,0 

4310 DATA 1,3,5,6,9,3,17.12,13.16,1 [2330] 

5,19,3,2,23,2,16,3,19,15 

4320 REM ::::: TAB 5 ::::::: [9043 

4330 DATA 0,0,575,0,30,0,960,0,0,0, [31963 

0,0,0,256,0,0,0,0,0,6,0,0 

4340 DATA 32,32,32,1,33,33,33,33,35 [2524] 
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,33,33,0,0,255,0,0,15,0,256,0,0,0 

4350 DATA 19,11,5,1,5,9,17,11,15,19 [28013 

,3,18,17,3,23,2,13,5,14,19 

4360 REM :s::: TAB 6 ::::::: [1021] 

4370 DATA 0,0,0,1,1,1,1,1,1,1,1,0,0 [2841 ] 

,256,0,0,0,0,0,0,3,4 

4380 DATA 1,769,0,0,0,0,0,0,0,0,0,0 [2023] 
,0,0,0,12,0,0,0,0,0,0 

4390 DATA 1,3,1,17,9,19,23,2,.5,17,1 [ 1433] 
6,5 

4400 REM ::s:: TAB 7 ::::::: [905] 

4410 DATA 0,896,0,1,0,0,0,256,0,2,4 [2087] 

i0,0,0,256,0,2,0,0,0,0,0 

4420 DATA 0,0,0,14,8,8,8,527,0,0,1, [3109] 

128,0,0,224,32,33,32,480,0,0,0 

4430 DATA 19,23,5,1,3,1,15,8,13,13, [2453] 

15,19,11,9,23,2,8,15,17,17 

4440 REM : : i ! i TAB 8 s : : : : : : [816] 

4450 DATA 136,0,32,535,260,0,64,292 [3844] 

,520,0,32,272,0.290,4,0,264,144,1,3 

2 146 260 

4460 DATA 68,0,65,292,520,0,32,520, [3206] 

260,0.64,136,0,4,290,0,146,265,0,16 

,292,130 

4470 DATA 1,7,9,1,15,5,21,5,5,8,15, [3392] 
12,11,12,19,14,7,19,13,18,19,8,7,1, 

1,23 

4480 REM : s : : : TAB ? ; ! : : : : : [1138] 

4490 DATA 0,0,451,0,0,0.,0,0,0,0,0,0 [2515] 
,0,0,0,0,0,0,0,0,3,0 


4500 DATA 16,16,16,16,16,16,0,0,16, [2580] 
16,16,32,32,32,32,0,0,32,32,32,32,3 
2 

4510 DATA 19,19,1,3,5,10,5,2,4,23,1 [331] 

8,3 

4520 REM : ! : : : TAB 10 : : : : : : : [771] 

4530 DATA 0,0,0,0.0,0,0,0,0,0,0,0,0 [2618] 

, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

4540 DATA 0,7,960,31,0,480,256,886, [3002] 
0,324,324,0,478,2,315,0,368,264,448 
.3 264 264 

4550 DATA 19,23,6,1,5,1,9,10,3,10,1 [1699] 
1,14,17,16,7,17,3,2,1,23,19,15 
4560 REM : ! s : ! TAB 11 i: :i: : ! [573] 

4570 DATA 0.1023,1023,1023,1020,102 [4050] 
0,1020,1023,1023,1023,1023,0,511,51 
1,511,255,255,255,511,511,511,511 
4580 DATA 0,0,0,0,0,0,0,768,0,0,0,0 [2603] 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

4590 DATA 1,15,6,5,9,2,21,3,21,13,7 [3019] 
,16,11,17,21,19,3,2,9.11.11,15 
4600 REM : : : : : TAB 12 [966] 

4610 DATA 0,0.0,0,0,238,138,234,42, [3347] 
238,0,0,0,0,0,0,476,264,392,264,264 
,0 

4620 DATA 0,131,130,226,0,0,0,0,0,0 [2274] 

,0,0,284.272,284,0,0,0,0,0,0,0 

4630 DATA 1,23,8,7,9,13,9,4,15,3,19 [3247] 

,8,19,12,15.18,19,19,19.16.3,2,8,17 

,4,11 
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Move 

( 464 ) 


C e logiciel d anima¬ 
tion génère les 
séquences inter¬ 
médiaires entre 
deux images (ini¬ 
tiale et finale), constituées d'un 
même nombre de segments. Il 
intègre un éditeur d'image, un 
compilateur et un lanceur 
d'animation (la routine d’affi¬ 
chage en langage machine, 
offre une célérité appréciable). 
Les animations créées peuvent 
être exploitées dans les trois 
modes de tout programme 
Basic: 

Mode 2: encre 1 
Mode 1: encre 3 
Mode 0: encre 15 
Sauvez le premier listing (pré¬ 
sentation, langage machine) 
sous un nom de votre choix, 
puis le second (programme 
principal) sous le nom 
« MOVE ». 

Soit les différentes options du 
menu principal: 

Editeur 

Permet la création des images 
(quatre maximum). La ligne du 
haut regroupe l’ensemble des 
actions possibles. Celle du bas 
représente la ligne d’état où 
figurent les différentes 
informations. 

Le curseur en forme de croix 
affiché au milieu de l’écran, a 
ses coordonnées x et y inscri¬ 
tes sur la ligne d’état. Le dépla¬ 
cement pixel par pixel dudit 
curseur s'obtient avec les tou¬ 
ches fléchées et le déplace¬ 
ment rapide par appui simul¬ 
tané sur Shift/touches 
fléchées. 

L'utilisateur dispose de diffé¬ 
rents modes de tracé : dépla¬ 
cements ligne à ligne et dépla¬ 


Sauvegarde des listings 

Sauvegardez le premier Bsting 
sous un nom quelconque 
(MOVE1 par exemple) et le 
second sous le nom "MOVE”. 



cements ligne brisée. Choix du 
mode: presser la touche « T », 
sélectionner un mode avec les 
flèches, puis valider par la 
barre d'espace. Le mode choisi 
apparaît sur la ligne d'état. 

Le mode déplacement permet 
le positionnement de l'origine 
d’un segment. Déplacer le cur¬ 
seur à l'endroit désiré et valider 
avec la barre d'espace. Un 
point apparaît sous le curseur. 
Un point déjà choisi disparaîtra 
pour prendre sa nouvelle 
position. 

Le mode ligne à ligne permet 
de tracer des segments en 
choisissant d'une part l'origine 
et d'autre part l’extrémité de 
chaque segment. La validation 
de l’origine et de l'extrémité 
s'effectue par la barre 
d'espace. 

Le mode ligne brisée trace des 
segments enchaînés les uns 
aux autres. 

Le nombre de segments tracés 
est affiché sur la ligne d’état. 
L'image à créer se choisit en 
pressant la touche « I ». Sélec¬ 
tionner son numéro avec les 
flèches, puis valider avec la 
barre d’espace. Le numéro de 
l'image ainsi choisie s'affiche 
sur la ligne d'état. Le curseur 
est placé au milieu de l'écran 
et le mode de tracé est le 
« mode déplacement ». Une 
image déjà créée s'affiche, 
tout comme son nombre de 
segments. 

La touche «C» autorise la cor¬ 
rection d'une image. L option 
Effacer détruit toute l'image, 
replace le curseur au milieu de 
l'écran et le mode de tracé est 
le « mode déplacement ». 
L'option Dernier segment con¬ 
serve toute l’image, sauf le der¬ 
nier segment. Dans les deux 


options, le nombre de seg¬ 
ments est remis à jour. 

La touche «O» fait accéder 
aux options suivantes: 

- symétrie Ox trace la symétrie 
de l'image en cours par rapport 
à l'axe horizontal du milieu de 
l'écran, 

- symétrie Oy trace la symétrie 
de l'image en cours par rapport 
à l'axe vertical du milieu de 
l'écran, 

- symétrie O trace la symétrie 
de l'image en cours par rapport 
au centre de l'écran. 

Le retour au menu principal 
s'obtient par la touche « M », 
validé par la barre 
d'espacement. 

Compilateur 

Effectue les calculs des coor¬ 
données de tous les segments 
intermédiaires entre l'image 
initiale et finale. L image initiale 
se choisit par la touche « I » 
(sélection puis validation) et 
l’image finale par la touche 
«F» (idem). 

• L'image initiale peut être l'une 
des quatre images créées avec 
l'éditeur, un point central, ou 
bien des points au hasard. 

■ L image finale peut être l'une 
des quatre images créées avec 
l'éditeur, un point central, des 
points au hasard, rotation sui¬ 
vant l'axe Ox, ou bien rotation 
suivant l'axe Oy. 


- Si la compatibilité entre 
l’image initiale et l’image finale 
est impossible (nombre de seg¬ 
ment différent), un message 
d'erreur apparaît. 

- L image « point central » posi¬ 
tionne ou fait converger, selon 
que cette image est initiale ou 
finale, tous les segments au 
centre de l'écran. 

-Limage points au hasard 
positionne ou fait converger 
tous les segments vers les 
points disséminés sur l'écran. 

- La rotation suivant l'axe Ox, 
fait « tourner » l 'image initiale 
autour de l'axe Ox. 

- La rotation suivant l'axe Oy, 
fait « tourner » l'image initiale 
autour de l'axe Oy. 

Les images initiales et finales 
sélectionnées sont affichées 
sur la ligne d'état. La touche 
«P» permet de choisir le nom¬ 
bre de pas (100 maximum, 10 
par défaut), c ’est-à-dire le nom¬ 
bre de positions intermédiaires 
entre l'image initiale et l'image 
finale. Le changement du nom¬ 
bre de pas s'obtient par les tou¬ 
ches gauche et droite du cur¬ 
seur. En pressant simultané¬ 
ment la touche Shift, ce pas est 
modifié par incrément de 10 (le 
nombre de pas sélectionné est 
affiché sur la ligne d’état). 

La compilation se lance dès 
l'appui sur la touche « C ». Si le 
nombre de pas est trop impor¬ 
tant (pour la place disponible 
en mémoire), un message 
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d'erreur apparaît. Les différen¬ 
tes positions occupées par les 
segments sont affichées. Le 
pas en cours figure sur la ligne 
d'état. La compilation peut être 
stoppée à tout moment en 
pressant une touche quelcon¬ 
que (une confirmation est alors 
demandée). La fin de compila¬ 
tion est signalée. « M » permet 
le retour au menu principal. 


Lanceur d'exécution 

Permet de visualiser l'anima¬ 
tion entre l'image initiale et 
l'image finale, sélectionnées 
avec le compilateur. Elles sont 
affichées sur la ligne d'état. En 
pressant la touche «A», l'ani¬ 
mation est immédiate. «P» 
rend possible le choix d'un 
temps de pause entre chaque 


image intermédiaire. Le 
réglage s'effectue comme pour 
celui du nombre de pas. Le 
temps de pause est affiché sur 
la ligne d'état. « M », retour au 
menu principal. 

Sauvegarde 

Sauvegarde toutes les coor¬ 
données des images, ainsi que 


la routine qui exécute l'anima¬ 
tion. « A» (Aide) affiche à 
l'écran, toutes les instructions 
nécessaires pour lancer l'ani¬ 
mation à partir du Basic. «S» 
permet la sauvegarde (le nom 
du fichier esl bien sûr 
demandé). » M », retour au 
menu principal. 

Pascal Chevallereau 


10 REM ************************* 


20 REM * * 
30 REM * MOVE * 
40 REM ♦ * 
50 REM * par Pascal C. * 
60 REM * * 


70 REM a*»»»»»»»*************»** 


[14131 

14033 

[3053 

[4033 

U1393 

[4033 

[14133 


80 REM [2723 

90 DEFINT a-z [5533 

100 REM C2723 

110 REM a**»»»»**»»*»**»»*****»* [14153 

120 REM * présentation * [6613 

130 REM a**»******»**»»*»»»*»**» [14153 

140 REM [2723 

150 MODE 1 : INK 0,0îINK 1,0:INK 2,20 [40903 

: INK 3,6:BORDER OiPAPER 0 
160 ENV 1,1,15,1,1,0,1,15,-1,1 [8343 

170 ENV 4,1,15,1,5,-1,3,10,-1,2 [12743 

180 SYMBOL 255,252,252,252,252,252, [19103 


252,0,0 

190 SYMBOL 254,0,3,3,3,3,3,63,63 [16253 

200 clt=CHRm5)+CHR*(3)+CHR*<255) [15363 

210 c2*«CHR*(15)+CHRi<2)+CHR*<254) (13553 

220 c3*«CHR*<15)+CHR*(2)+CHR*<255> [20293 

230 c4$«CHR*<15H-CHR*<3)+CHR*(254> [22233 

240 trans*=CHR*<22)+CHR*(l) [12313 

250 norai=CHR4(22) +CHRÏ<0) [16103 

260 RESTORE 770 [6893 

270 ad=&8000 (3143 

280 FOR n«0 T0 223:READ donneetiPOK [37473 
E ad+n,VAL("S."+donneet) :NEXT n 
290 RESTORE 1010:g=2Jp = 1 [8393 

300 EVERY 10 G0SUB 960 [7233 

310 PEN llLOCATE 1,1 :PR1NT“M0VE" [15833 
320 PRINT trans* [3233 

330 x=5:y=10 (5353 

340 FOR n=39B T0 386 STEP -2 [4673 

350 FOR i=0 T0 62 STEP 2 [8543 

360 IF TEST(i,n)=1 THEN L0CATE x,y: [44643 
PRINT clFiLOCATE x.ysPRINT c2* 

370 x-x +1 [8533 

380 NEXT i [3753 

390 x=5:y=y+l [4283 

400 NEXT n [3663 

410 x=5:y=10 [5353 

420 FOR n=398 TO 386 STEP -2 [4673 

430 FOR i»0 TO 62 STEP 2 [8543 

440 IF TEST<i,n) = 1 THEN LOCATE x,yi [53763 
PRINT c3t:LOCATE x,y:PRINT c4t 
450 x*x+l [8533 

460 NEXT i [3753 

470 x=5:y*y+l [4283 

480 NEXT n [3663 

490 PRINT nora* [4813 

500 LOCATE 1,1«PRINT* ” [10083 


510 LOCATE 1,25:FOR n=l TO 8:PRINT: [28743 

FOR tp=1 TO 80:NEXT tp,n 

520 PEN 1 :LOCATE 19,15:PRINT"PAR" [19653 

530 a$="PASCAL CHEVALLEREAU”:a=LEN( [23323 

ai) 

540 PRINT CHR*(23)+CHRF(3):TAG:PLOT [16643 
“2 “2 1 

550'MOVE (640-a*16)/2,100:PRINT atj [13913 
560 MOVE ( (640-a*16) /2I -2,98: PRINT [22883 

a*! 

570 MOVE <(640—a*16)/2)—2,98:PRINT [22883 


ali 

580 TAGOFF:PRINT CHR*(23)+CHR*(1): T [41393 
AG 

590 MOVE (640-a»16>/2,100:PRINT a*: [13913 
600 TAGOFF: PR I NT CHR*(231+CHR*(0) [34903 

610 INK 1,26 [563 

620 MOVE 0,0:DRAW 0,399:DRAW 639,39 [12413 
9:DRAW 639,0:DRAW 0,0 

630 FOR n=l TO 100:x=RND*639:y=RND* [14683 
399 

640 IF TEST(x,y)=0 THEN PLOT x,y [9703 
650 NEXT rr [3663 

660 LOCATE 17,25:PRINT”CSPACE3” [19123 

670 WHILE INKEY<47)< >0 AND INKEY147 [39593 
)< >32:WEND 

680 FOR n=0 TO 50:tt=INKEYt:NEXT n [25143 
690 a=REMAIN(0) [12963 

700 LOCATE 15,25:PRINT”[CHARGEMENTS [16503 

710 RUN"!move.bas” [6413 

720 REM [2723 

730 REM a********»»**»*»****»*»» [14153 

740 REM * data routine L.M * [19643 

750 REM aaaaaaaaaaaeaassaasaaaaa [14153 
760 REM [2723 


770 DATA 3e,01,32,eO,80,3a,el,80,te (23513 
,00,c2,13,30,3a,e2,80 

780 DATA c3,14,80,3d,32,el,80,3e,00 [34873 
.32,38,b3,cd,74,80,3a 

790 DATA e2,80,4f,3a,el,80,b9,c2,2f [29543 
,80,3e,00,c3,30,80,3c 

800 DATA 32,el,80,3e,tf,32,38,b3,cd [26853 
,74,80,3a,e,,,80,47,3a 

810 DATA e0,80,b8,ca,4d,80,3c,32,e0 [19613 
,80,c3,05,80,3a,e2,80 

320 DATA 4f,3a,el,80,b9,c2,59,80,c9 [24703 
,3c,32,el,80,2a,e6,80 

330 DATA 7c,te,00,ca,6a,80,2b,c3,60 [28543 
,80,7d,fe,00,ca,00,80 

840 DATA 2b,c3,6a,80,16,00,3a,e3,80 [23373 
,5f,0e,00,3a,el,80,06 

850 DATA 10,21,00,00,cb,39,lt,d2,8b [24883 
,80,19,eb ,29,eb ,05,c2 

860 DATA 84,80,3a,eO,80,4f,06,00,09 [21713 
,2b,22,e4,80,01,f f,80 
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870 DATA 2a,e4,80,29,09,5e,23,54,eb C25533 
,22,2c ,b3,01 ,-f-f ,8S,2a 

880 DATA e4,80,29,09,5e,23,56,eb,22 [20663 
,2e,b3,01, f T,90,2a,e4 

890 DATA 80,29,09,5e,23,56,01 ,ff ,98 [19783 
,2a,e4,80,29,09,4e,23 

900 DATA 66,69,cd,f6,bb,c9,00,00,00 C26003 

, 00 , 00 , 00 , 00 , 00 , 00,00 

910 REM C2723 

920 REM *»**»*♦«*»*****♦*♦«»#*»* [14153 

930 REM » musique * [4683 

940 REM **#*#*♦»**#♦»**»*»****♦* [14153 

950 REM [2723 

960 DIiIF !SQ(1) AND 71=0 THEN El s R [36453 
ETURN ELSE READ envel,note 
970 SOUND l,note+3,0,0,envel,0,0 [31083 


980 SOUND 2,note/g,0,0,envel,0,0 [22683 

990 p=p + ls IF p=43 THEN p = 1 s RESTORE 134003 

1010:g=g+2:IF g=6 THEN g=2 

1000 RETURN [5553 

1010 DATA 1,239,1,253,4,239,4,478,4 [32903 

,473,1,319,1,358,1,379,1,319,1,239, 

1,253,4,239 

1020 DATA 1,213,1,255,1,213,4,426,4 [29073 

,426,1,284,1,253,1,284,4,319 

1030 DATA 1,239,1,253,4,239,4,478,4 [32903 

,478,1,319,1,358,1,379,1,319,1,239, 

1,253,4,239 

1040 DATA 1,213,1,255,1,213,4,426,1 [27963 
,239,1,253,1,284,1.253,4,239 
1050 DATA 70,140,242,344,398,500,60 [17073 
2 


10 REM »****»**»*»»«**»»*»**»«». [14153 

20 REM » initialisation » [20383 

30 REM *»**♦*«***»«*»**»»**»*»* [14153 

40 MEMORY 67FFF [1503 

50 DEFINT a-z [5533 

60 RANDOMIZE TIME [17773 

70 SYMBOL 255,16,16,16,254,16,16,16 [23963 
,0 

80 inv*»CHR*<24> [8353 

90 exl*CHRP(23)+CHRP(1) [7203 

100 normt*CHRt(23)+CHR*(0) [16653 

110 POKE 8<80£6,0) POKE 180E7.0 [I486) 

120 DIM depx(59),depxx(59),depy<S9> [40953 
,depyy(59),arx(59),arxx(59),ary(59l 
,aryy(59) 

130 DIM px(59,3),py(59,3),pxx(59,3) [17643 
,pyy <59,3) 


140 DIM seg(3) [6483 

150 PLOT -2,-2,0 [7923 

160 FOR n=0 TO 160 [7843 

170 MOVE 2»n,1.25*n [8523 

180 DRAW 2«n,399-1.25»n [10723 

190 DRAW 639-2«n,399-1.25«n [8653 

200 DRAW 639-2*n,1.25*n [10133 

210 DRAW 2*n,1.25*n [4573 

220 NEXT n [3663 

230 MODE 2:INK 0,0:INK 1,26|PEN liB [36733 

ORDER OiPAPER 0 

240 PLOT -1,-1,1 [6713 

250 REM *«**»#*t*t*t**»»e*»«t*s [14123 

260 REM • menu p.p * [10203 

270 REM »«»»♦♦#*♦♦♦»*»«*♦**♦*♦♦ (1412) 

280 CLSia'FRE <"”) [4203 

290 a*»“ EDITER *>bf*" COMP [30453 
ILER ”ic*=" ANIMER "id*=" 
SAUVEGARDE ’ 

300 MOVE 0,0:DRAW 0,399iDRAW 639,39 [12413 
9|DRAW 639,0:DRAW 0,0 

310 RESTORE 7020 [7793 


320 MOVE 130,270sFOR n*l TO 12lREAD [14893 
x,y>DRAW x,ytNEXT n 

330 MOVE 230,280tFOR n=l TO 81 READ (3355) 
x,y:DRAW x.yiNEXT n 

340 MOVE 245,290)FOR n*l TO 81 READ [32973 
x,yiDRAW x,y : NE X T n 

350 MOVE 330,370iFOR n*l TO 7 1 READ 135643 
x,y 1 DRAW x,y 1 NEXT n 

360 MOVE 430,270)FOR n=l TO 12:READ [16431 
x,y:DRAW x,y:NEXT n 

370 LOCATE 37,12iPRINT inv*)* MENU [12063 
"jinvP 


380 MOVE 285,204 1 DRAW 338,204:DRAW [29073 

338,226 1 DRAW 285,226)DRAW 285,204 
390 MOVE 252,92)DRAW 252,162>DRAW 3 [24483 
71,162)DRAN 371,92)DRAW 252,92 
400 PRINT invt( 1 GOSUB 540:PRINT inv 111463 
*1 

410 GOSUB 550)GOSUB 560>G0SUB 570 [17293 

420 LOCATE 17,24)PRINT'Presser une [74123 
touche pour sélectionner une option 


430 tt="”)ch=l [7863 

440 EVERY 25 GOSUB 500 [8091 

450 t*=INKEY*:IF t*«“" THEN GOTO 45 [13083 

0 

460 a=REMAIN(0) [12963 

470 GOSUB 6810 [10713 

480 FOR n*l TO 5>0N ch GOSUB 540,55 [85003 


0,560,570)F0R tp*l TO 75)NEXT tp)PR 
INT inv$|)ON ch GOSUB 540,550,560,5 
70)PRINT invPpFOR tp = l TO 75)NEXT 
tp,n 

490 ON ch GOTO 610,2840,5210,5910 [13733 


500 ON ch GOSUB 540,550,560,570 [18353 

510 ch*ch+l)IF ch*5 THEN ch=l [24133 

520 PRINT inv*|)ON ch GOSUB 540,550 [34073 
,560,570iPRINT invtj 

530 RETURN [5553 

540 LOCATE 33,16)PRINT a*|:RETURN [25743 

550 LOCATE 33,17)PRINT bP|)RETURN [19303 

560 LOCATE 33,18)PRINT c»))RETURN [26023 

570 LOCATE 33,19)PRINT dP)IRETURN (23753 

580 REH •******»*«**•»**«**•**« [14123 

590 REM * éditeur « [6113 

600 REH **•«*•*•*****•«*»*»**** [14123 

610 CLS [913 


620 i«a«Ottr*l>xi = 320: yi=200)dep = l 1 [47013 
px (seg (0) , 0 ) =» 3 20 1 p y (seg (0), 0) =200) c 
oepi1»0ii*in»0)iefi«0 

630 aP=” Image *)bP*“ Tracer *)cP=* [160973 
Corriger “)dt“" Options "ieP«" Men 
u ’ifp»" Annulation ■)fl$«Ff+* ”> 

f2”if3$=<*+" ")gt=" Imag 

e 0 * 1 h*=" Image 1 "iif*“ Ima 

ge 2 “ijl=” Image 3 " 

640 k»«* Déplacement ")!*»* Ligne (129973 
a ligne "im$=” Ligne brisee "ini* 

• Effacer ")ot=" Dernier se 

gment "iq*=" Symétrie Ox "ir*»“ Sym 
etrie Oy “)sP*" Symétrie 0 ")uP*" 

Retour Menu 

650 LOCATE 1,1)PRINT inv»|“ "|a* [39333 


« 


Move 


I- ‘|b*| ■ *ic*j" 


”|d$|" ■'} e * j “ 


660 LOCATE 1,25:PRINT* *|g*|* 

J k*»" Segment 

* [42563 

x= y* "|inv*| 

670 GOSUB 6830 

(10673 

680 PRINT ex*) 1 TAG 

(13273 

690 GOSUB 2620 

[8633 

700 GOSUB 2690 

(9053 

710 x=320:y=200:GOSUB 2710:B0SUB 
30:GOSUB 2750 

27 [30753 

720 PLOT 320,200 

(6213 


730 IF INKEY<35)=0 OR INKEY <35)=32 118023 

THEN SOSUB 6850:G0T0 1160 

740 IF INKEY<51> =0 OR INKEY<51)=32 I1816J 

THEN 60SUB 68 SO:GOTO 1450 

750 IF INKEY1621*0 OR INKEY <62)=32 C18811 

THEN GOSUB 68 SO:GOTO 1690 

760 IF INKEY(34)=0 OR INKEY<34)=32 I2477I 

THEN GOSUB 6850iG0T0 2030 

770 IF INKEY(38)=0 OR INKEY<34> «32 I2486I 

THEN GOSUB 6850iG0T0 2430 

780 IF INKEY147)*0 OR INKEY <47> = 32 11629] 

THEN GOSUB 6850iG0T0 970 

790 IF INKEY< 1 ) =0 THEN GOSUB 2710m C4841] 

— m +1 1 GOSUB 880:GOSUB 2710:G0SUB 273 

0:G0T0 730 

800 IF INKEY< 8 > = 0 THEN GOSUB 2710m 163593 
=« — 1 1 GOSUB 900:GOSUB 2710iG0SUB 273 
OiGOTO 730 

810 IF INKEY(0)=0 THEN GOSUB 2710iy 155643 
=y+2:GOSUB 920:GOSUB 27I0iGOSUB 275 
OlGOTO 730 

820 IF INKEY(2)=0 THEN GOSUB 2710iy C35703 
=y-2;GOSUB 94O:G0SUB 2710:G0SUB 275 
Os GOTO 730 

830 IF INKEY<1)=32 THEN GOSUB 2710! C49653 
x *x ♦ 10 1 GOSUB 880!GOSUB 2710lG0SUB 2 
730iGOTO 730 

840 IF INKEY <83 =32 THEN GOSUB 271Oi [47683 
x*x-10: GOSUB 900lGOSUB 2710iG0SUB 2 
730ïGOTO 730 

850 IF INKEY<03=32 THEN GOSUB 2710: [50793 
y=y*10:GOSUB 920iG0SUB 2710iG0SUB 2 
750:GOTO 730 

860 IF INKEY<23=32 THEN GOSUB 2710» [47163 
y=y-10:GOSUB 940iG0SUB 2710iG0SUB 2 


750iG0T0 730 

870 GOTO 730 [4273 

880 IF x >631 THEN x = 63t [ 15373 

890 RETURN [ 555 ] 

900 IF x <8 THEN x =8 [7073 

910 RETURN [ 555 ] 

920 IF y>366 THEN y=366 [15863 

930 RETURN [5553 

940 IF y<32 THEN y=32 [7603 

950 RETURN [5553 

960 REH *♦♦♦* graphisme ♦ ***♦ (12393 

970 IF seg(i*a>>=59 THEN TfiGOFFiPRI [39003 
NT CHR*<7>|:TAG:GOTO 730 
980 GOSUB 2710 [9093 

990 TAGOFFiPRINT norm*) (22043 

1000 ON tr GOSUB 1040,1080,1100 (11093 

1010 TAGOFFiPRINT ex*|iTAG [24413 

1020 GOSUB 2710 [9093 

1030 GOTO 730 (4273 

1040 dep=l 1 PLOT -1,-1,0iPL 0T xi,yi [10723 
1050 PLOT -1,-l,1mi*x 1 yi»y 1 PLOT xi (16153 

1 y* 

1060 px(seg(ima),ima)=x:py(seg(ima) [13413 


,ima)*y 

1070 RETURN [5553 
1080 IF dep=0 THEN GOSUB 1040 ELSE (16253 
GOSUB 1100 

1090 RETURN [5553 
1100 dep=0:H0VE xi , yi ! DRAM x,ymi*x (26463 
iyi«y 

1110 px(seg(ima)+1,ima)«x 1 py(seg<i■ [48543 
a)+ 1 ,ima)*y:pxx(seg(ima),ima)*x 1 pyy 


(seg(ima),ima)= y 

1120 seg(ima)=seg(ima)+1 [12873 

1130 GOSUB 2690 [9053 

1140 RETURN [5553 

1150 REH ***♦♦ image ♦***» [13023 

1160 GOSUB 6810:SOSUB 2710 [15393 

1170 TAGOFFiPRINT norm*) [22043 

1180 LOCATE 4,1 1 PRINT a*) (6603 


1190 wg*2:wd = 15:*ih*2!wb=9:G0SUB 687 (20283 

0 

1200 PRINT invt|:GOSUB 1270:PRINT i [21893 
nv*| 

1210 GOSUB 1280:GOSUB 1290:G0SUB 13 [38693 
00:GOSUB 1310 


1220 vali=0:ch=l:ach=l:maxi=5 [21923 

1230 GOSUB 6930 (10713 

1240 IF chOach THEN ON ach GOSUB I [71173 

270,1280,1290,1300,1310:PRINT inv*| 

: ON 'ch GOSUB 1270,1280,1290,1300,13 

10:PRINT invt):ach=ch:GOTO 1230 

1250 IF vali=l THEN GOTO 1320 [7053 

1260 GOTO 1230 [3653 

1270 LOCATE 3,3:PRINT <4|iRETURN [23543 

1280 LOCATE 3,5:PRINT gt) 1 RETURN [9093 

1290 LOCATE 3,6:PRINT h*;:RETURN [14653 

1300 LOCATE 3,7:PRINT i*| :RETURN [12243 

1310 LOCATE 3, 81 PRINT j*|iRETURN [21713 

1320 IF ch*l THEN CLSI2:H0VE 7,368: [36893 

DRAW 632,368: GOTO 1400 

1330 ima=ch-2:GOSUB 2770 [9723 

1340 GOSUB 2690 [9053 


1350 IF tr<> 1 THEN tr■ 1 1 st*»k*iGOSU US433 
B 2790 

1360 x=320:y=200:GOSUB 2730:G0SUB 2 [20203 
750 

1370 xi=x:yi=y:px(seg(ima),ima)=xip [37373 
y(seg(ima),ima )=y 

1380 CLS(t2:H0VE 7,368:DRAW 632,368: (13043 
CLS* 1 


1390 PLOT 320,200:dep=l [7193 

1400 PLOT xi,yi:GOSUB 2620 [18313 

1410 TAGOFFiLOCATE 4,1:PRINT inv*)a [36123 
*|inv*j 

1420 PRINT ex*j:TAG:GOSUB 2710 [17953 

1430 GOTO 730 [4273 

1440 REH **«*» tracer ***** [6233 

1450 GOSUB 68 IO 1 GOSUB 2710 (15393 

1460 TAGOFFiPRINT norrntj [22043 

1470 LOCATE 19,1iPRINT b*| [7883 

1480 »g=15iwd=31 1 wh=2:wb=8:GOSUB 68 [28613 
70 

1490 vali=0:ch=l:ach=l:maxi=4 [21893 

1500 PRINT i nvFj :GOSUB 1560:PRINT i [15333 
nvF; 

1510 GOSUB 1570:GOSUB 1580:G0SUB 15 (26713 
90 

1520 GOSUB 6930 C10713 

1530 IF chOach THEN ON ach GOSUB 1 [70163 
560,1570,1580,1590:PR INT irtv*>iON c 
h GOSUB 1560,1570,1580,1590:PRINT i 
nvt; :ach=ch:GOTO 1520 
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1540 IF vali»l THEN GOTO 1600 £856] 

1550 GOTO 1520 £3953 

1560 LOCATE 16,3:PRINT <lt):RETURN £1900] 
1570 LOCATE 16,5]PRINT kl)IRETURN £1546] 
1580 LOCATE 16,6iPRINT 11 j :RETURN £2185] 
1590 LOCATE 16,7i PRINT «tpRETURN £20813 
1600 IF ch*l THEN GOTO 1630 £895] 

1610 tr*ch-liIF tr=l THEN stt»kt EL £23523 
SE IF tr*2 THEN stt»lt ELSE 
1620 GOSUB 2790 £8293 

1630 CLS#2:M0VE 7,368:DRAW 632,368 £8543 

1640 PLOT xi ,yi:GOSUB 2620 £18313 

1650 TAGOFFiLOCATE 19,1j PRINT invt) £3413] 
bt|invt; 

1660 PRINT ext)iTAGiGOSUB 2710 £1795] 

1670 GOTO 730 £427] 

1680 REH *«*»* corriger *»»** £5743 

1690 IF seg < i <na ) = 0 THEN GOTO 730 £1421] 

1700 GOSUB 6810:GOSUB 2710 £1539] 

1710 TAGOFF)PRINT nor*t) £2204] 

1720 LOCATE 36,1 s PRINT et) £13323 


1730 wg=32:wd=50:wh=2:wb=7!GOSUB 68 £1783) 
70 

1740 PRINT invf ::GOSUB 1810:PRINT i £1139] 
nvt j 

1750 GOSUB 1820:GOSUB 1830 £12543 

1760 vali»0:ch=l:ach=l:maxi=3 £21861 

1770 GOSUB 6930 £1071] 

1780 IF chOach THEN ON ach GOSUB 1 £7956] 

810,1820,1830:PRINT invtpON ch GOS 


U8 1810,1820,1830:PRINT invt):ach=c 
hiGOTO 1770 

1790 IF vali-1 THEN GOTO 1840 £904] 

1800 GOTO 1770 £361] 

1810 LOCATE 33,3iPRINT T3t):RETURN £2410] 
1820 LOCATE 33,5|PRINT ntj!RETURN £2148] 
1830 LOCATE 33,6sPRINT oipRETURN £14563 
1840 CLS*2iH0VE 7,368)DRAW 632,368 £854] 

1850 IF ch = l THEN GOTO 1890 £859] 

1860 ON ch-1 GOSUB 1940,1990 £1579] 

1870 GOSUB 2690 £905] 

1880 CLS#1 £373] 

1890 IF dep=l OR tr=3 OR tr=l THEN £14263 
PLOT xi,yi 

1900 GOSUB 2620 £8633 

1910 TAGOFFiLOCATE 36,1:PRINT invt) £23643 
et)invt) 

1920 PRINT ext):TAG)GOSUB 2710 £17953 

1930 GOTO 730 £427] 

1940 seglinal-O £7023 


1950 IF trOt THEN tr = l : stt=kI: GOSU £15433 
B 2790 

1960 x=320:y=200:GOSUB 2730sG0SUB 2 £20203 
750 

1970 xi=x: yi = y spx(0,i»a)=x!py<0,ima £35133 
)=y 

1980 RETURN £555] 

1990 seg(ima)*segiimal-1 £1267] 

2000 IF tr=3 THEN x i =px ( seg ( i ma), i i» £52353 
al:yi=py(seg(ima),ima) ELSE px(seg( 
ima),ima)=xi:py(seg1ima),ima)=yi 
2010 RETURN £555] 

2020 REM »»*** options *«*»* £15713 

2030 IF seg(ima)=0 THEN GOTO 730 £1421] 

2040 GOSUB 6810:G0SUB 2710 £15393 

2050 TAGOFF]PRINT normt) £2204] 

2060 LOCATE 54,1»PRINT dt) £13323 

2070 wg-51 :wd = 65:wh = 2:wb=8;GOSUB 68 £2593] 
70 

2080 PRINT invt) :GOSUB 2150:PRINT i £8373 


nvt) 

2090 GOSUB 2160:GOSUB 2170:G0SUB 21 £1682] 
80 

2100 vali*0:ch=l:ach=l:maxi=4 £21893 

2110 GOSUB 6930 £10713 

2120 IF chOach THEN ON ach GOSUB 2 £75633 
150,2160,2170,2180:PRINT invtjiON c 


h GOSUB 2150,2160,2170,21B0:PRINT i 
nvt):ach=ch:GOTO 2110 

2130 IF vali=l THEN GOTO 2190 £8503 

2140 GOTO 2110 £3573 

2150 LOCATE 52,3iPRINT T24; :RETURN £2539] 
2160 LOCATE 52,5:PRII*T qt j : RETURN £2167] 
2170 LOCATE 52,6:PRINT rt):RETURN £23163 
2180 LOCATE 52,7]PR1NT st|:RETURN £2161] 
2190 CLS02:MOVE 7,36B:DRAW 632,368 £8543 

2200 IF ch=l THEN GOTO 2240 £7593 

2210 CLS#1 £3733 

2220 ON ch-1 GOSUB 2280,2340,2400 £1370] 

2230 GOSUB 2730:G0SUB 2750 £1820] 

2240 PLOT >:i, y i i GOSUB 2620 £18313 

2250 TAGOFF:LOCATE 54,1 » PRINT invt) £1960] 
dt;invt) 

2260 PRINT ext; :TAG:GOSUB 2710 £17953 

2270 GOTO 730 £4273 

2280 yi=yi+2*<199-yi):py(seg (ima) ,i £3839] 
ma)*yi:y=y+2»(199-y) 

2290 FOR n=0 TO seg(i*a)-l £10733 


2300 py(n,ima)=py(n,iaa)+2*i199-py( £2547] 
n,iaa)) 

2310 pyy(n,i®a)=pyy(n,ima)+2*(199-p £36463 
yy(n,i#a)) 


2320 NEXT n £3663 

2330 RETURN £555] 

2340 xi=xi+2*(319.5-xi)ipx(seg(ima) £41843 
, i «ta ) *xi : x-x +2* (319.5-x ) 

2350 FOR n=0 TO seg(ima)-l £10733 

2360 px(n,ima)=px(n,i»a)+2*(319.5-p £20123 
x < n, i m a ) ) 

2370 pxx(n,i«a)=pxx(n,i®a>+2»(319.5 £3711] 
-px x (n, i ma ) ) 

2380 NEXT n £3663 

2390 RETURN £555] 

2400 GOSUB 2280:GOSUB 2340 £19803 

2410 RETURN £555] 

2420 REM #**»* menu «*««* £7093 

2430 GOSUB 6810:GOSUB 2710 £1539] 

2440 TAGOFF:PRINT nor»«| £2204] 

2450 LOCATE 71,1 :PRINT et| £16733 


2460 wg=65:wd=79:wh=2:Mb-6:GOSUB 68 £2286] 
70 

2470 PRINT invt;:GOSUB 2540:PRINT i £11563 
nvt| 

2480 GOSUB 2550 £8773 

2490 vali=0 :c h = 1 :ach-1:maxi=2 £2183] 

2500 GOSUB 6930 £10713 

2510 IF chOach THEN ON ach GOSUB 2 £5969] 
540,2550:PR1NT inv*s:ON ch GOSUB 25 
40,2550:PRINT invt|:ach=ch: GOTO 250 
0 

2520 IF vali = 1 THEN GOTO 2560 £8243 

2530 GOTO 2500 £343] 

2540 LOCATE 66,3:PRINT T2tj:RETURN £1697] 
2550 LOCATE 66,5:PRINT utjiRETURN £26133 
2560 IF ch=2 THEN PRINT nor*t|:GOSU £46103 
B 6850:GOTO 280 

2570 CLS42:MOVE 7,368:DRAW 632,368 £854] 

2580 PLOT xi,yi:GOSUB 2620 £1831] 

2590 TAGOFFiLOCATE 71,1 :PRINT invt; £3281] 
etjinvt) 
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2400 PRINT ex*;iTAGiGOSUB 2710 
2410 GOTO 730 

2420 IF seg(i ma) «0 THEN RETURN 
2430 TAGOFFiPRINT nora*;:TAG 
2440 FOR n=0 TO aeg(ima)-l 
2450 MOVE px <n,ima) ,py(n,ima) iDRAW 
pxx(n,ima),pyy(n,ima) 

2440 NEXT n 

2470 TAGOFF:PRINT ex*;iTAG 
2480 RETURN 

2490 TAGOFFsLOCATE 53,25îPRINT inv* 
| ! PRINT USING’lt “ ; seg ( i ma ) ; i PRINT i 
nv*;iTAG • 

2700 RETURN 

2710 MOVE x-3,y*4iPRINT CHR*(255>| 
2720 RETURN 

2730 TAGOFFiLOCATE 47,25:PRINT inv* 
I :PRINT USING"*##";x;iPRINT inv*|iT 
AG 

2740 RETURN 

2750 TAGOFFiLOCATE 73,25iPRINT inv* 
î iPRINT US ING” Kit 4 ” i y) i PR INT inv*;:T 
AG 

2740 RETURN 

2770 TAGOFFiLOCATE 10,25iPRINT inv* 
ï iPRINT i ma; i : PRINT inv*;:TAG 
2780 RETURN 

2790 TAGOFFiLOCATE 19,25 iPRINT inv* 
| st*; inv* ; i TAG 
2800 RETURN 

2810 REM ********************** 

2820 REM * compilateur « 

2830 REM ********************** 

2840 CLS 

2850 a*=" Image Initiale ’ib'»=" Ima 
ge Finale "ic*=" Pas ":d*=“ Compila 
tion ”ie*=" Menu "if*=" Annulation 
"ifl*=f**" "if2*=f*+" 

"ig**” Image 0 *ih*=“ Ima 

ge 1 Image 2 

*îj*=" Image 3 " 

2840 k*=“ Points au hasard ":1*=" P 
oint central "in*=" Rotation Ox 
”in*=" Rotation Oy "io*=" 

Nombre de pasi":q*=‘ Retour Menu * 
2870 LOCATE l.liPRINT inv*;“ ”;a* 
!" ‘)b*|“ "|c*|* " | d *} * 

" ; e * j "; 

2880 LOCATE l,25îPRINT” 

P 

as i * | 

inv*; 

2890 GOSUB 4830 

2900 IF(seg(0) OR seg(1) OR seg<2> 
OR seg(3))=0 THEN er=8:G0SUB 4250iG 
0T0 280 

2910 1F compi1=1 THEN GOSUB 4570iG0 
SUB 4400ipas=cpas ELSE pas*10 
2920 GOSUB 4710 

2930 IF INKEY<35)=0 OR INKEY<35>=32 
THEN GOSUB 4850iG0T0 3000 
2940 IF INKEY<53)=0 OR INKEY<53)=32 
THEN GOSUB 4850iG0T0 3230 
2950 IF INKEY(27)=0 OR INKEY(27>=32 
THEN GOSUB 4850iG0T0 3480 
2940 IF INKEY(42)=0 OR INKEY(42)=32 
THEN GOSUB 4850iGOTO 3480 
2970 IF INKEY(38)=0 OR INKEY<38>=32 
THEN GOSUB 4850iG0T0 4410 
2980 GOTO 2930 
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[555] 

[38923 


[5553 

[59433 


[5553 

[48801 

[5553 

[24713 

[555) 

[1287] 

[4493 

[1287] 

[91] 

[14723] 


[10019] 

[38493 

[4349] 

[10473 

[3270] 

[4310] 

[10513 

U5933 

(44023 

(15421 

[1955] 

[3283] 

(3371 


2990 REM *** image initiale *** [14783 

3000 GOSUB 4810 [1071] 

3010 LOCATE 4,1 1 PR INT a*; [4403 

3020 wg=2iwd=21iwh=2iwb=11iGOSUB 48 [1599] 
70 

3030 PRINT inv*;iGOSUB 3100iPRINT i [15053 
nv* ; 

3040 GOSUB 3110iG0SUB 3120:GOSUB 31 [4407] 
30:GOSUB 3140:G0SUB 3150:G0SUB 3140 


3050 vali=0ich=l 1 ach=l:maxi=7 [21983 

3040 GOSUB 4930 [1071] 

3070 IF chOach THEN ON ach GOSUB 3 [81853 
100,3110,3120,3130,3140,3150,3140:P 
RINT inv*;:0N ch GOSUB 3100,3110,31 
20,3130,3140,3150,3140:PRINT inv*;: 

' ach=chiG0T0 3040 

3080 IF vali=l THEN GOTO 3170 [9583 

3090 GOTO 3040 [4533 

3100 LOCATE 3,3:PRINT fl*;! RETURN [14413 
3110 LOCATE 3,5:PRINT g*):RETURN [9093 
3120 LOCATE 3,4:PRINT h*; iRETURN [14453 
3130 LOCATE 3,7iPRINT i*; :RETURN [ 1224] 
3140 LOCATE 3,8s PRINT j*;:RETURN [2171] 
3150 LOCATE 3,9:PRINT k*;:RETURN [23401 
3140 LOCATE 3,10:PRINT 1 *: RETURN [1383] 
3170 CLS#2iMOVE 7,348:DRAW 432,348 [8543 

3180 IF ch=l THEN GOTO 3200 [8533 

3190 imin=ch-liGOSUB 4580 [442] 

3200 LOCATE 4,1 :PRINT inv*;a*;inv*; [17183 
3210 GOTO 2930 [337] 

3220 REM ***» image finale ***» (17073 

3230 GOSUB 4810 [1071] 

3240 LOCATE 25,1î PRINT b*; [17303 

3250 wg=22:wd-41 1 wh=2:wb = 13:GOSUB 4 [ 17783 
870 

3240 PRINT inv*;iGOSUB 3330:PRINT i [19483 
nv*; 

3270 GOSUB 3340:G0SUB 3350iG0SUB 33 [5430] 


4 O 1 GOSUB 3370:GOSUB 3380:G0SUB 3390 
:GOSUB 3400:GOSUB 3410 

3280 vali=0:ch=I:ach=l:maxi=9 [2172) 

3290 GOSUB 4930 [1071] 

3300 IF chOach THEN ON ach GOSUB 3 [9107] 
330,3340,3350,3340,3370,3380,3390,3 
400,3410iPRINT inv*;:ON ch GOSUB 33 
30,3340,3350,3340,3370,3380,3390,34 
00,3410:PRINT invt;:ach=ch: GOTO 329 
0 

3310 IF vali=l THEN GOTO 3420 [1020] 

3320 GOTO 3290 [484] 

3330 LOCATE 23,3:PRINT fl*;iRETURN [1327] 

3340 LOCATE 23,5:PRINT gt; 1 RETURN [13703 

3350 LOCATE 23,4iPRINT ht;iRETURN [28833 

3340 LOCATE 23,7iPRINT i*;iRETURN (21791 

3370 LOCATE 23,8iPRINT j*;iRETURN [21043 

3380 LOCATE 23,9:PRINT k*; 1 RETURN [1240] 

3390 LOCATE 23,10iPRINT 1*; 1 RETURN [1452] 
3400 LOCATE 23,11:PRINT m*;:RETURN [1909] 
3410 LOCATE 23,12:PRINT n*;:RETURN [18123 
3420 CLS#2:M0VE 7,348:DRAW 432,348 (854) 


3430 IF ch=l THEN GOTO 3450 [8473 

3440 imfi=ch-l:GOSUB 4410 [14443 

3450 LOCATE 25,1 s PRINT inv*;b*;inv* (30013 
i 

3440 GOTO 2930 [3373 

3470 REM ***** pas ***** (4493 

3480 GOSUB 4810 [10713 

3490 LOCATE 44,1:PRINT c*|-> [13581 

3500 wg=37:t*d=54iwh=2:wb=4:GOSUB 48 [24983 

70 
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3510 PRINT invt)iGOSUB 3600:PRINT i [14433 


nvt) 

3520 GOSUB 3610 111981 
3530 apas*pas:hi*99s 1o=1 snb=pas 1 1334] 
3540 vali=0:ch=l:ach=l:maxi=2 12183] 
3550 GOSUB 6930 11071] 


3560 IF chOach THEN ON ach GOSUB 3 171963 
600,3610:PRINT invtpQN ch GOSUB 36 
00,3610:PRINT invt;:ach=ch:G0T0 355 
0 

3570 IF ch=2 THEN GOSUB 6970:pas=nb 166273 
iLOCATE 53,5:PRINT invtjîPRINT USIN 
G"## " |pas):PRINT" "):PRINT invt) 

3580 IF val i = 1 THEN GOTO 3620 1933] 

3590 GOTO 3550 1467] 

3600 LOCATE 3B,3:PRINT 114;:RETURN 124053 
3610 LOCATE 38,5:PRINT ot):PRINT US 12487] 
ING"##”ipas):PR1NT“ “ ) i RETURN 
3620 IF ch=! THEN pas=apas:GOTO 364 11335] 
0 


3630 GOSUB 4710 110513 

3640 CLS42:MOVE 7,368:DRAW 632,368 1854] 

3650 LOCATE 44,1 » PRINT invt)et)jnvt 12043] 
I 

3660 GOTO 2930 13373 

3670 REM *** compilation **** 110163 

3680 GOSUB 6810 11071] 

3690 LOCATE 54,1:PRINT dt) 113323 

3700 GOSUB 4070:IF er<>0 THEN GOSUB 120573 
4250:GOTO 4050 

3710 GOSUB 4130:IF er<>0 THEN GOSUB 144463 
4250:G0T0 4050 

3720 CLS#1 13733 


3730 compil=l:cinin=imin:cimfi =im-fi 13978] 
:cpas=pas 

3740 IF imin=5 THEN GOSUB 4760:G0SU 129933 
B 5080:GOTO 3810 

3750 IF imin=6 THEN GOSUB 4760:G0SU 122163 
B 4970:GOTO 3810 

3760 IF imfi=5 THEN GOSUB 472O-.G0SU 120213 
B 5130:GOTO 3810 

3770 IF imfi=6 THEN GOSUB 4720:G0SU 11383] 
B 5020:G0T0 3810 

3780 IF imfi=7 THEN GOSUB 4720:G0SU 129763 
B 4890:GOTO 3810 

3790 IF imfi=8 THEN GOSUB 4720:G0SU 12466] 
B 4810:GOTO 3810 

3800 GOSUB 4720:GOSUB 4760 115563 

3810 LOCATE 58,25:PRINT invt)"Pas e 13748] 
n cours:")invt) 

3820 POKE 680E3,seg:POKE 6B0E2,pas 1930] 
3830 tabt=680FF:tab2*688FF:tab3=fc90 115563 


FF:tab4=698FF 

3840 FOR i=0 TO pas 18213 

3850 POKE 680E 1, i 1412] 

3860 FOR n = 0 TO seg-1 110113 

3870 POKE &80E0,n+t 1539] 


3880 coord=depx(n)+i*(arx(n)-depx<n 118213 
))/pas 

3890 POKE tabl,coord AND 255:tabl=t 14147] 
ab 1 +1 : POKE tabl,(coord AND 6FF00I/2 
56:tabl=tabl+l 

3900 coord=depy(n)+i*(ary(n)-depy(n 130733 
))/pas 

3910 POKE tab2,coord AND 255:tab2=t 130103 
ab2+l:P0KE tab2,(coord AND &FF001/2 
56:tab2=tab2+l 

3920 coord=depxx(n)+i«(arxx(n)-depx 133903 
x(n))/pas 

3930 POKE tab3,coord AND 255:tab3=t 157673 


ab3+1 :POKE tab3,(coord AND 6FF00I/2 
56itab3=tab3+l 

3940 coord»depyy(n)+i»(aryy(n)-depy 124973 
y(n))/pas 

3950 POKE tab4,coord AND 255:tab4=t 129033 
ab4+l:POKE tab4,(coord AND 6FF00)/2 
56:tab4=tab4+l 

3960 LOCATE 71,25:PRINT invtpPRINT 130703 
USING*4#“iij:PRINT invtj 


3970 CALL 68074 14673 

3980 tt^INKEVt:IF tt<>*" THEN GOSUB 122313 
4200 

3990 NEXT n,i 15723 

4000 IF compilé THEN GOTO 4030 110503 

4010 LOCATE 58,25:PRINT inv$;”Co«pi 145253 
lation terminée")invt) 

4020 FOR tp=l TO 3000:NEXT tp 112293 

4030 CLS#1 13733 

4040 LOCATE 58,25:PRINT invt)" 129473 

')invt) 

4050 LOCATE 54,1:PRINT invt)dt)inv* 11509] 
I 

4060 GOTO 2930 13373 

4070 IF imin=0 THEN er = 1 :RETURN 12035] 
4080 IF i«fi«0 THEN er*2:RETURN 117173 
4090 IF(imin>4 AND imfi>4) THEN er= 120723 
3:RETURN 

4100 IF imin<5 THEN seg = seg(imin-1 ) 147503 
ELSE seg=seg(imfi-1) 

4110 er=0 11413 

4120 RETURN 15553 


4130 IF imin-imfi THEN er=4:RETURN 123433 
4140 IF imin<5 THEN IF seg(imin-l)* 127163 
0 THEN er=6:RETURN 

4150 IF imfi<5 THEN IF seg(imfi-l)« 134753 
0 THEN er=7:RETURN 

4160 IF(imin<5 AND imfi<5) THEN IF 127853 
seg(imin-1)<>seg(imfi-1) THEN er=5: 

RETURN 

4170 IF (pas+1)*seg«2>2048 THEN er= 119323 
9:RETURN 

4180 er=0 11413 

4190 RETURN 15553 

4200 LOCATE 58,25:PRINT invt)"Inter 138353 

ruption ? (0/N)*|invt} 

4210 GOSUB 6850 110633 

4220 IF INKEY(34)=0 OR INKEY(34)=32 148183 

THEN LOCATE 58,25:compi1=0:n=seg-l 
:i«pas:RETURN 

4230 IF INKEY (46) *0 OR INKEY (4é>) =32 17451 3 
THEN LOCATE 58,25:PRINT invt)"Pas 
en cours:"):PRINT USING"##")i):PRIN 
T" ")invt)sGOSUB 6850:RETURN 
4240 GOTO 4220 13833 

4250 PRINT CHRt(7)) 111753 

4260 MOVE 179,244:DRAW 460,244:DRAW 142533 
460,170:DRAW 179,170:DRAW 179,244 
4270 LOCATE 24,11 :PRINT invt)" 126123 

Compilation Impossible ! "(invt 

4280 ON er GOSUB 4310,4320,4330,434 130833 

0,4350,4360,4370,4380,4390 

4290 FOR tp=1 TO 5000:NEXT tp:CLS#l 122273 

4300 RETURN 15553 

4310 LOCATE 28,13:PRINT"Image initi 13499] 

ale non definie"):RETURN 

4320 LOCATE 29,13:PRINT"Image final 14644] 

e non definie”RETURN 

4330 LOCATE 32,13:PRINT"Image non u 142223 
ti1isee"):RETURN 
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4340 LOCATE 32,13»PRINT"Images iden 
tiques” )iRETURN 

4350 LOCATE .27,13s PRINT “Nombre de s 

egments different"|:RETURN 

4360 LOCATE 29,13:PRINT"Image initi 

ale non creee"jiRETURN 

4370 LOCATE 30,13:PRINT”Image final 

e non creee"|!RETURN 

4380 LOCATE 33,13:PRINT"Image non c 

reee")iRETURN 

4390 LOCATE 29,13:PRINT"Nombre de p 
as trop grand “ ; : RETURN 
4400 REH ***** menu ***** 

4410 GOSUB 6810 

4420 LOCATE 72,1 :PRINT e«( 

4430 wg=65iwd=79iwh=2iwb=6iGOSUB 68 
70 

4440 PRINT invti:GOSUB 4510:PRINT i 
nvt) 

4450 GOSUB 4520 

4460 vali=0:ch = l:ach*l:maxi=2 

447.0 GOSUB 6930 

4480 IF chOach THEN ON ach GOSUB 4 
510,4520:PRINT invtpON ch GOSUB 45 
10,4520:PRINT invf;iach=ch: GOTO 447 

0 

4490 IF vali=l THEN GOTO 4530 
4500 GOTO 4470 ■ 

4510 LOCATE 66,3;PRINT f t;iRETURN 
4520 LOCATE 66,5;PRINT qt)iRETURN 
4530 IF ch=2 THEN GOSUB 6850:G0T0 2 
80 

4540 CLS#2:M0VE 7,368:DRAW 632,368 
4550 LOCATE 72,1 1 PR INT inv*|et)inv* 
! 

4560 GOTO 2930 

4570 ON cimin GOSUB 4630,4640,4650, 

4660.4670.4680 

4580 ON imin GOSUB 4630,4640,4650,4 

660.4670.4680 

4590 LOCATE 4,25:PRINT inv*)st*>inv 
*|iRETURN 

4600 ON cimfi GOSUB 4630,4640,4650, 

4660.4670.4680.4690.4700 

4610 ON imfi GOSUB 4630,4640,4650,4 

660.4670.4680.4690.4700 

4620 LOCATE 25,25iPRINT inv$)st#;in 
vijiRETURN 
4630 st#=g*iRETURN 
4640 st*=h*iRETURN 
4650 stt=itiRETURN 
4660 stf=j#iRETURN 
4670 st$=k#iRETURN 
4680 stt=lt:RETURN 
4690 st#=mtî RETURN 
4700 st*=n*iRETURN 
4710 LOCATE 51,25iPRINT invtjiPRINT 
US ING"##"ipas)iPRINT inv#)iRETURN 
4720 FOR n=0, TO seg-1 
4730 depx(n)=px(n,imin-1)idepy(n)=p 
y(n,imin-l) 

4740 depxx(n)=pxx(n,imin-l)idepyy(n 
)=pyy(n,imin-1) 

4750 NEXT niRETURN 
4760 FOR n=0 TO'seg-1 
4770 arx(n)=px(n,iefi-l)iary(n)=py( 
n,imfi-11 

4780 arxx(n)=pxx<n,imfi-l)iaryy<n)= 
pyy(n,imfi-1) 

4790 NEXT niRETURN 


C4654] 

4800 

REM ***** rotation Oy ♦*** 

[1316] 


4810 

FOR n=0 TO seg-1 

noin 

15364] 

4820 

) ) 

arx(n)*depx(n)+2*(319.5-depx(n 

[1041] 

[3453] 

4830 

arxx(n)=depxx(n)+2*(319.5-depx 

[2352] 


x (n) ) 


[4161] 

4840 

ary(n)*depy(n) 

[1558] 


4850 

aryy(n)=depyy(n) 

[1069] 

[3729] 

4860 

NEXT n 

[366] 


4870 

RETURN 

(555] 

[5114] 

4880 

REM ***** rotation Ox »*** 

U205] 


4890 

FOR n=0 TO seg-1 

noin 

[709] 

4900 

arx <n)=depx(n) 

[360] 

[1071] 

4910 

arxx <n)=depxx(n) 

[1372] 

[672] 

4920 

ary(n)=depy(n)+2*(199-depy(n)) 

[2892] 

[2286] 

4930 
n) ) 

aryy(n)=depyy(n)+2*(199-depyy( 

[18481 

[1641] 

4940 

NEXT n 

[366] 


4950 

RETURN 

[555] 

[1041] 

4960 

REM ***** image point **** 

[1891] 

[2183] 

4970 

FOR n=0 TO seg-1 

nom 

[1071] 

4980 

depx(n)=320îdepy(n)=200 

[515] 

[7075] 

4990 

depxx(n)*320idepyy(n)*200 

[1062] 


5000 

NEXT n 

[366] 


5010 

RETURN 

(555] 


5020 

FOR n=0 TO seg-1 

nom 

[590] 

5030 

arx(n)=320iary(n)=200 

[1577] 

[323] 

5040 

arxx(n)=320:aryy(n)=200 

[1529] 

[1401] 

5050 

NEXT n 

[3661 

[20251 

5060 

RETURN 

[555] 

[1778] 

5070 

REM **** pts au hasard *** 

t1671] 


5080 

FOR n=0 TO seg-1 

[îom 

[854] 

5090 

depx(n)=RND*623+8idepy(n)=RND* 

C 23241 

[1943] 

334+32 



5100 

depxx(n)=depx(n)idepyy(n)=depy 

[1290] 

[337] 

(ni 



(3196] 

5110 

NEXT n 

[366] 


5120 

RETURN 

[555] 

[2123] 

5130 

FOR n=0 TO seg-1 

nom 


5140 

arx(n)=RND*623+8iary(n)=RND*33 

[2832] 

[2428] 

4+32 




5150 

arxx<n)=arx(n)îaryy(n)=*ry(n) 

[2922] 

[4564] 

5160 

NEXT n 

[366] 


5170 

RETURN 

[555] 

[2368] 

5180 

REM «t******************** 

[1287] 


5190 

REM * animation * 

[1021] 

[2685] 

5200 

REM ********************** 

[1287] 


5210 

CLS 

[91] 

[439] 

5220 

at=" Pause "ib#=" Menu "ic#=" 

[7311] 

[11021 

Animation ":d#=” Annulation "idl*=d 


[667] 

(+" ■ 

’id2#=d$+* "ie#=" Temps d 


[1124] 

a pauseï“if*=" Retour Menu " 


[657] 

5230 

LOCATE 1,1 :PRINT inv#|" 

[37781 

[8431 


"! a#)" ")c$i” 


[617] 


■ib*r ■) 


[8451 

5240 

LOCATE 1,25iPRINT" 

[4476] 

[3242] 


P 



as: 

Pause! ") 


[1011] 

invti 


(25351 

5250 

GOSUB 6830 

[1067] 


5260 

IF compi1=0 THEN GOSUB 5820:GO 

[16291 

[2233] 

TO 280 



5270 

GOSUB 4570:G0SUB 4600:G0SUB 47 

[3830] 

[1554] 

10iGOSUB 5530 


(1011] 

5280 

IF INKEY(27)=0 OR INKEY<27) = 32 

[1340] 

[3389] 

THEN GOSUB 6850iG0T0 5330 



5290 

IF INKEY(69)=0 OR INKEY(69)=32 

[2583] 

[3579] 

THEN GOSUB 6850lG0T0 5560 



5300 

IF INKEY(38)=0 OR INKEY(38)=32 

[3305] 


11554] THEN GOSUB 6850iG0T0 5660 
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5310 60T0 5200 [3153 

5320 REM *mh pause ***** [8813 

5330 GOSUB 6810 [10713 

5340 LOCATE 15,1iPRINT aF) [8683 

5350 Mg=8ind=28inh=2iwb=6iG0SUB 687 [29943 
3 

5360 PRINT invF)iGDSUB 5450|PRINT i [11573 
•>vF) . 

5370 GOSUB 5460 [8713 

5380 apause=pause>.hi=99) lo=0mb=pau [21443 

se 

5390 vali*0>ch=liach«liiaxi=2 [21833 

5400 GOSUB 6930 [10713 


5410 IF chOach THEN ON ach GOSUB 5 [54533 
450,5460) (PRINT invFpON ch GOSUB 5 
450,5460iPRINT invF|)ach*ch)GOTO 54 

00 

5420 IF ch=2 THEN GOSUB 6970>pause= [62423 
nb!LOCATE 25,5)PRINT invFpPRINT US 
IN6"#*")pause|>PRINT" ”|iPRINT invF 
I 

5430 IF vali=l THEN GOTO 5470 [8743 

5440 GOTO 5400 [3553 

5450 LOCATE 9,3iPRINT d2F) iRETURN [16433 
5460 LOCATE 9,5)PRINT etjiPRINT USI [44603 
NG"M"jpausejiPRINT* ";iRETURN 
5470 IF ch=l THEN pause-apause:GOTO [20931 
5500 

5480 GOSUB 5530 [8733 

5490 POKE S.80E6,<pause*65S35/199) A [46783 
ND 255)POKE S.80E7,(<pause«65535/199 


>AND «.FFOOI/256 

5500 CLS#2)M0VE 7,368iDRAN 632,368 [8543 

5510 LOCATE 15,1iPRINT invF|aF|invF [I486] 
1 

5520 GOTO 5280 [315] 

5530 LOCATE 64,25)PRINT invFpPRINT [46833 
USING"*«"ipause|iPRINT invF) 

5540 RETURN [5553 

5550 REM ***** aniaation •**» [13983 

5560 GOSUB 6810 [10713 

5570 LOCATE 36,1IPRINT cF| [13323 

5580 POKE 480E1,0 [4653 

5590 CALL «.8000 [4533 

5600 FOR tp=1 TO 500)NEXT tp)tF=INK [39041 
EYF>IF tF="“ THEN 60T0 5580 
5610 LOCATE 36,1|PRINT invF)cFjinvF (16441 
! 

5620 GOSUB 6850 [10631 

5630 CLS41 (3731 

5640 GOTO 5280 [3153 

5650 REM *♦#*♦ aenu ***** [7091 

5660 GOSUB 6810 [1071] 

5670 LOCATE 60,1)PRINT bF| [10141 


5680 wg=56ntd=70iwh=2it«b=6iG0SUB 68 (25743 
70 

5690 PRINT invf)iGOSUB 5760)PRINT i 118573 
nvF) 

5700 GOSUB 5770 [9683 

5710 vali*0>ch»l]ach*i>eaxi=2 [21831 

5720 GOSUB 6930 [10711 

5730 IF chOach THEN ON ach GOSUB 5 [61811 
760,5770)PRINT invFpON ch GOSUB 57 
60,5770:PRINT invF jiach-chiGOTO 572 
0 

5740 IF vali*l THEN GOTO 5780 (8843 

5750 GOTO 5720 [4033 

5760 LOCATE 57,3>PRINT d1$;)RETURN [20603 
5770 LOCATE 57,5)PRINT f F) )RETURN [16211 
5780 IF ch=2 THEN GOSUB 6850)G0T0 2 [17783 


80 

5790 CLS42)MOVE 7,368)DRAN 632,368 [8543 

5800 LOCATE 60,1:PRINT invF)bF)invF [12453 

5810 GOTO 5280 [3153 

5820 PRINT CHRP(7) ) [11753 

5830 MOVE 179,244)DRAW 460,244:DRAW [42533 
460,170)DRAW 179,170)DRAW 179,244 
5840 LOCATE 24,11)PRINT invF;” [41243 

Animation Impossible ! "(invF 

I 

5850 LOCATE 28,13)PRINT”Compi1ation [29543 
non effectuée") 

5860 FOR tp=l TO 5000)NEXT tp)CLS*l [22273 


5870 RETURN [5551 

5880 REM ********************** [12873 

5890 REM * sauvegarde * [6831 

5900 REM «s*»»*#**»»****»*»**** [12873 

5910 CLS [913 

5920 aF<=" Aide »>b*»" Sauvegarde ") [59243 
cF=* Menu “:dF=' Annulation ")dlF»d 
$+" ":eF=’' Retour Nenu " 

5930 LOCATE - 1,1 )PRINT inv»)" [36493 

”Ie FI" “(bF)" 

“icF)* 

5940 LOCATE 1,25)PRINT” (44763 

P 

asi Pause) *g 

invF) 

5950 GOSUB 6830 C10673 


5960 IF compi1=0 THEN GOSUB 6750|G0 [16823 
TO 280 

5970 GOSUB 4570>G0SUB 4600)G0SUB 47 (38303 
10)GOSUB 5530 

5980 IF INKEY(691=0 OR INKEY(693=32 [25693 
THEN GOSUB 6850)GOTO 6030 
5990 IF INKEY(601=0 OR INKEY<60)=32 [22723 
THEN GOSUB 6850)GOTO 6330 
6000 IF INKEY<38> =0 OR INKEY<38)=32 [31423 


THEN GOSUB 6850)GOTO 6590 
6010 GOTO 5980 [333] 

6020 REM «set* aide ***** [1178] 

6030 GOSUB 6810 [10713 

6040 LOCATE 15,I)PRINT aF| [8681 


6050 WINDOH«2,18,63,6,20)WINDON*1,2 [30603 
, 79,3,23)PAPER42,1 s CLS#2 
6060 MOVE 131,324î DRAW 508,324)DRAW [33123 
508,74)DRAW 131,74)DRAW 131,324 
6070 PRINT invFj [3423 

6080 LOCATE 19,7)PRINT‘UTILISATION [39033 
DES ANIMATIONS A PARTIR DU BASIC" 

6090 LOCATE 19,8)PR!NT STRINGF<44,2 [19441 
08) 

6100 LOCATE 24,9)PRINT"Pour la sauv [39901 
egarde taper)" 

6110 LOCATE 29,10) PR INT "MEMORY «,7FF [31003 

6120 LOCATE 29,11)PR INT"SAVE";CHRF( [5767] 
54) g "fichier") CHRF (34 ) | ', 68000,1,20F 
F, «,8000" 

6130 LOCATE 24,13!PRINT"Pour le cha [2926] 
-gement taper)* 

6140 LOCATE 29,14 ) PRINT "MEMORY «.7FF [2523] 

6150 LOCATE 29,15)PRINT”LOAD"|CHRF( [54153 
34))"fichier‘j CHRF(34) 

6160 LOCATE 24,17)PRINT“Pour l ani» [29533 
stion taper ! " - 1 

6170 LOCATE 29,18)PRINT"P0KE «.80E1, [33943 
0 <RAZ de 1 animation) " 
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6180 LOCATE 29,19:PRINT'CALL 1.8000 C38743 

(1ancer 1 ’aniaationl* 

6190 PRINT invt) [3423 

-6200 60SUB 6850 C10633 

6210 t**INKEY*)IF t**"" THEN GOTO 6 [14741 
210 

6220 FOR n*0 TO 6 STEP 2 [8091 

6230 FOR i*0 TO 45 [5181 

6240 LOCATE 18+i,6+niPRlNT" *|)LOCA [35301 
TE 63-i,20-n:PRINT* *| 

6250 NEXT j [3753 

6260 FOR i*0 TO 45 [5181 

6270 LOCATE 63-i ,7+mPRINT" *|)LOCA [28463 
TE 1 B+i, 19-mPRINT* *| 

6280 NEXT i,n [4231 

6290 CLSil [3731 

6300 LOCATE 15,1iPRINT inv»|i»|inv« [I486] 

6310 GOTO 5980 [3331 

6320 REM »»t* sauvegarde t»** [14051 

6330 GOSUB 6810 [10711 

6340 LOCATE 35,1jPRINT b*| [7881 

6350 wg*34iwd*47:wh*2lwb*6:GOSUB 68 [15851 
70 

6360 PRINT invt)iGQSUB 6430|PRINT i [16161 

6370 GOSUB 6440 [9151 

6380 vali=Oich*l:ach*li«axi*2 [21831 

6390 GOSUB 6930 [1071] 

6400 IF chOich THEN ON tch GOSUB 6 [55131 


430,6440lPRlNT inv*)iON ch GOSUB 64 
30,6440iPRINT inv*|:ach=ch: GOTO 639 


0 

6410 IF vi 1 î * 1 THEN 60T0 6450 [9181 

6420 GOTO 6390 [3651 

6430 LOCATE 35,3iPRINT dt|■RETURN [11841 

6440 LOCATE 35,5iPRINT bt|iRETURN [1871] 

6450 CLS*2iN0VE 7,368iDRAN 632,368 [854] 

6460 IF ch*t THEN GOTO 6560 [7751 

6470 GOSUB 6850 [10631 


6480 NIND0N42,23,58,10,16iNINDOWt1, [37161 
2,79,3,23:PAPER62,1 :PENI2,0:CLS42 
6490 MOVE 171,260iDRAW 468,260|DRAW [38841 
468,138iDRAN 171,138iDRAW 171,260 
6500 L0CATE#2,4,2i INPUTI2, "No* du f [34031 
ichiiri",fiché 

6510 L0CATEI2,4,4:PRINTI2,"Préparer [32761 
un support «agnatique* 

6520 L0CATEB2,4,6:PRINT#2,"puis prc [32121 
sser li touch» -ENTER-* 

6530 t*-INKEY*iIF t»*CHR*<lS> THEN [29791 
GOTO 6540 ELSE 6530 

6540 SPEED NRITE 11SAVE*!*+fich*,b, [32621 
18000,120FF,68000 


6550 CLStl [3731 

6560 LOCATE 35,ltPRINT inv*|b*|inv* [16931 

6570 GOTO 5980 [3331 

6580 REH ***** «enu ♦ »♦** [7091 

6590 GOSUB 6810 [10711 

6600 LOCATE 6l,l:PRINT c«| [10581 

6610 wg*57)wd*71iwh*2)wb*6)G0SU8 68 [27331 
70 

6620 PRINT invt)iGOSUB 6690iPRINT i [15171 
nv»| 

6630 60SUB 6700 [8791 

6640 vili*0ich*liich*l)naxi*2 [21831 

6650 GOSUB 6930 [10711 

6660 IF chOich THEN ON ach GOSUB 6 [62271 
690,6700iPRINT invIpON ch GOSUB 66 
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90,6700iPRINT inv*|:ach*ch: GOTO 665 
0 

6670 IF vili*1 THEN GOTO 6710 
6680 GOTO 6650 

6690 LOCATE 58,3iPRINT d14)iRETURN 
6700 LOCATE 58,5iPRINT et |iRETURN 
6710 IF ch*2 THEN GOSUB 6850iG0T0 2 
80 

6720 CLS#2:N0VE 7,368iDRAW 632,368 
6730 LOCATE 6.1,1 1 PRINT invi|c*|invF 
I 

6740 GOTO 5980 
6750 PRINT CHR*<7)j 
6760 HOVE 179,244iDRAW 460,244!0RA« 
460,1701 DRAW 179, 170iDRA« 179,244 
6770 LOCATE 24,11iPRINT inv*j“ 
Sauvegarde Impossible ! *|inv$ 

I 

6780 LOCATE 29,13sPRINT“Conpi1ation 
non effectuée*) 

6790 FOR tp=l TO 5000:NEXT tp:CLS#l 
6800 RETURN 

6810 SOUND 1,36,5,6,1,1:SOUND 1,48, 
5,6,1,1 
6820 RETURN 

6830 MOVE 7,31:DRAW 7,368:DRAW 632, 
368:DRAW 632,31:DRAW 7,31 
6840 RETURN 

6850 FOR tp=l TO 20:t*=INk'EY*:NEXT 
tp 

6860 RETURN 

6870 WIND0W42,wg,wd, wh,wb:PAPER42,0 
:CLS42 

6880 fg»8*(wg-l)+2:fd*8»wd-3:fh*390 

-16»(wh-1):fb*408-16s«b 

6890 HOVE fg,fh : DRAW fg,fb:DRAW fd, 

fb : DRAW fd,fh:DRAW f g,f h 

6900 HOVE fg,fh-32:DRAW fd,fh-32 

6910 WINDOWil,2,79,3,23 

6920 RETURN 

6930 IF INKEY<21=0 OR INKEY(2)=32 T 
HEN ch=ch+l:IF ch>«axi THEN ch*«axi 
6940 IF INKEY (0) =0 OR INKEY <0) *=32 T 
HEN ch*ch-1 : IF ch<l THEN ch = l 
6950 IF INKEY<471=0 OR INKEY<47)=32 
THEN vali*1 
6960 RETURN 

6970 IF INKEY[1)*0 THEN nb=nb*t:IF 
nb>hi THEN nb=hi 

6980 IF INKEY(1)*32 THEN nb=nb+10:I 
F nb>hi THEN nb=hi 
6990 IF INKEY(81=0 THEN nb=nb-l:lF 
nb<lo THEN nb=lo 

7000 1F INKEY(81=32 THEN nb*nb-10:I 
F nb<lo THEN nb*lo 
7010 RETURN 

7020 DATA 130,370,145,370,170,330,1 
95,370,210,370,210,270,195,270,195, 

330.170.290.145.330.145.270.130.270 
7030 DATA 230,360,240,370,300,370,3 
10,360,310,280,300,270,240,270,230, 
280 

7040 DATA 245,350,250,355,290,355,2 
95,350,295,290,290,285,250,285,245, 
290 

7050 DATA 345,370,370,290,390,370,4 
05,370,380,270,360,270,330,370 
7060 DATA 430,370,510,370,510,355,4 
45,355,445,327,500,327,500,312,445, 

312.445.285.510.285.510.270.430.270 
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Ça VA PETER ZORGLUB! 

(Les aventures de Johnny Proot) 


usqu‘alors, nous hési¬ 
tions à publier sous 
forme de listing un jeu 
d'aventure, car sou¬ 
vent trop long, déce¬ 
vant ou excessivement lent. 
Mais le compromis idéal qui 
semble aujourd'hui être pro¬ 
posé, nous oblige à tenter 
l'expérience. A vous de juger. 

Sauvegarde 

Sauvez le premier listing Basic 
sous un nom de votre choix 
(« PROOT», par exemple) et 
entrez les codes hexadéci¬ 
maux du second par le pro¬ 
gramme Amsaisie (reportez- 
vous à son mode d’emploi). 
Spécifiez 7530 comme adresse 
de début et sauvegardez par 
l'option «S» sous le nom « PR- 
LM u. Si le courage vous man¬ 
que pour saisir en une seule 
fois les 13 ko de ce fichier 
binaire (ouf!), morcelez votre 
travail en plusieurs fichiers 
(PR1, PR2, etc.). Ces derniers 
devront ultérieurement être 
chargés à la suite après un 
MEMORY &752Fet sauvegar¬ 
dés ainsi dans un fichier 
unique: 

SA VE H PR-LM ", b, & 7530.A310B 

Le personnage 

Agent spécial du PET (Protec¬ 
tion Establishment vs Terro- 
rism) -organisation secrète 
mondiale, dont le but louable 
est de contrer le monde crimi¬ 
nel dans son influence néfaste 
sur la destinée des états -, 
Johnny Proot est, à juste titre, 
l'ultime recours qui n'intervient 
qu 'en cas de danger extrême. 
Guérillero hors pair, maître 
armurier, expert en explosifs et 
relativement intelligent pour un 
héros, il se doit, une fois instruit 
de sa mission, de mener celle- 
ci à terme coûte que coûte. 


La mission 
(message du chef 
suprême) 

■ Bonjour Johnny. Vous 
sachant au mieux de votre 
forme, je fais appel à vous pour 
éviter, si possible, une nouvelle 
crise mondiale. Je m'explique. 
Votre ennemi mortel, le géné¬ 
ral Zorglub, persiste à vouloir 
devenir le maître du monde. 
Pour ce faire, il a mis au point 
une nouvelle bombe indétecta¬ 
ble et miniaturisée, avec 
laquelle il compte exercer un 
odieux chantage à l'attentat. 
Fort heureusement et à notre 
connaissance, il n 'existe qu 'un 
seul exemplaire de l'engin 
meurtrier, encore à l'état de 
prototype. Nous savons de 
Marseille, heu, également, qu'il 
tiendra dans son bunker et 
devant son état major au grand 
complet, une réunion impor¬ 
tante afin d'exposer son plan 
diabolique. Bref, votre mission, 
que je vous ordonne d'accep¬ 
ter, consiste à détruire cette 
bombe et par la même occa¬ 
sion, le général et ses acolytes. 
Vous serez parachuté devant le 
bunker au moment précis de la 
relève, afin de vous éviter un 
échange de politesses avec les 
250 gardes qui patrouillent 
24 h sur 24 dans le parc. Du 
fait de ce choix stratégique, 
vous n'aurez que 10mn pour 
agir, à savoir: découvrir le 
moyen d'entrer discrètement, 
puis rechercher notre agent 
retenu prisonnier (à qui l'on doit 
les informations que je viens 
d'évoquer) et qui pourra certai¬ 
nement vous aider à trouver la 
bombe. Une fois en possession 
de celle-ci, rejoignez la salle de 
réunion et faites-la sauter. 
J'allais oublier. Ne pourront 
être utilisés que les éléments 
se trouvant sur place (en effet, 
un système de détection de 


métaux entoure le bunker). Un 
conseil d'ami, débrouillez-vous 
pour découvrir un moyen de 
locomotion vous permettant 
d'échapper à l'explosion. 
Sachez en outre que le bunker 
comprend un peu moins de cin¬ 
quante pièces. Malgré tout, 
bonne chance Johnny 
P.S. (avant autodestruction du 
document) Pour entrer, une 
idée me vient : faites-vous 
ouvrir la porte par un garde et 
ensuite, éliminez-le... 


Les conventions 

L'entrée des ordres s effectue 
sous formes de phrases com¬ 
posées au moins d'un verbe et 
d'un nom (sujet). Seules, les 
quatre premières lettres de ces 
derniers sont pris en compte. 
Ainsi, pour ouvrir une porte, on 
peut taper « OUVR PORT » ou 
bien « OUVRE DONC CETTE 
GRANDE PORTE». En cas 
d'ambiguïté, le programme 


réclame des précisions. Dans 
certains cas, les pronoms 
o LE », « LA », « LES » peuvent 
se substituer aux noms qu'il 
n 'est pas nécessaire de préci¬ 
ser (un seul objet est présent, 
vous venez de l'utiliser, ou il est 
apparu dans un message de 
l'ordinateur). Pour examiner 
une pièce, [ENTER] remplace 
le verbe « REGARDER ». 

- Le programme comprend un 
grand nombre d'insultes, alors, 
soyez prudent... 

- Certaines actions en temps 
réel réclament de la vivacité. 

• Les éléments du mobilier 
manipulables sont coloriés en 
bleu pastel. 

- On peut transporter quatre 
objets à la fois affichés dans la 
fenêtre en haut à droite. Des¬ 
sous figurent l'énergie, le 
temps, puis les directions 
immédiatement empruntables. 

Thierry & David Kergosien 


, ENFONCER 
I DONNER 
t OUVRIR 
I TRAINER 

I fermer 

1 SOULEVER 
i VISSER 
1 JOUER 
1 ENLEVER 

| FRAPPFR 
\tuer 

1 CASSER 
EMMENER 
BOIRE 
, ETEINDRE 
COUCHER 

entrer 


Le vocabulaire 

Sujets 

BATON 
VITRE 
GIGOT 
ROBINET 

UT _ 

PASSE 
DISQUETTE 
SERVIETTE 

~ BOf inîlNIER ORDINATEUR 

renier 0R acard 

COFFRE 
SAVON 
CLEF 
CARTE 

armoire 
livre 

NOTE 
ARME 


Ver bes 

TOQUEFI 

assommer 
prendre 
tirer 
LIRE „ 
allumer 
essuyer 

AMORCER 
DEVERROUILLER 
CACHER 
RAMASSER 

briser 

POSER 
MANGER 
INSERER 
ALLONGER 
DEMARRER 


PORTE 

PENETRE 

BOUTEILLE 

fruit 

tiroir 

TAPIS 
| FLUTE 
EAU 


placard 
plan 

ALCOOL 

CLE 

PILIER 

MAIN 

ampoule 

ETIQUETTE 
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10 SYMBOL 255,128,0,0,0,0,0,0,0 U5693 

20 SYMBOL 244,0,7,15,31,31,63,03,03 U80U 
30 SYMBOL 245,0,224,248,254,255,255 [26313 
,255,255 

40 SYMBOL 246,0,7,31,127,255,255,25 C17083 

5.255 

50 SYMBOL 247,0,224,240,248,248,252 [25983 
252 252 

60 6VMB01 248,63,63,31,31,15,15,7,3 [23463 
70 SYMBOt 249,255,255,255,255,255,2 [24683 

55.255.255 

80 SYMBOL 250,255,255,255,255,255,2 [28643 

55,255,255 

90 SYMBOL 251,252,252,248,248,240,2 [24813 
40,224,192 

100 SYMBOL 252,1,0,0,0,0,0,0,0 [12843 

110 SYMBOL 253,255,127,31,15,7,3,1, [18683 
0 

120 SYMBOL 254,255,254,248,240,224, [26363 
192,128,0 

130 '** INSTALLATION «* [10363 

140 MEMORY R752FiLOAD" lpr-lm.bin*, 6 C4986J 
7530iDEF INT a-z)RANDOMIZE TlMEiPOKE 
6A67B,13 

150 k=»35iDIM oi(k) ,o(k) [15333 

160 w*«*ENFÜTUQUFRAPCACHASSOTUERTU£ [126183 
SRAMAENLEOUVRPRENCASSBRISTRAITIREEM 
MEPOSEFERMI.IRELIS BOIRBOISMANGCOUCA 
LLOSOULALLUETEIINSEV1SSESSUDEVED0NN 
JOUEAMORENTRDEMA 
52 


170 kt*"PORTBATOGARDPLACFENEVITRCOF [95573 
FPLANB0UT8IG0SAV0ALC0FRUIR0BICLEFCL 
ESTIRO LITCARTPILITAPIPASSARMONAINF 
LUTDIBOLIVRORDIAMPO EAUSERVPRISNOTE 
ETIOBOMBCAMIARME 

180 1*“"000100020003000400050005000 [74643 

60007000800090010001100120013001400 

14001500160017001800190020002100220 

02300240025002600270028002900300031 

0032003300340035 

190 ENT 1,30,10,11ENV 1,10,-1,21ENV [44113 
2,15,1,3)ENV 3,1,0,2,15,-1,20)ENV 
5,15,-1,10)ENV 6,15,-1,1 
200 SPEED INK 50,20)INK 0,14)INK 1, [42923 
0)INK 2,3iINK 3,PEEK(6A67B) 

210 ’* DEBUT DU JEU [6153 

220 RESTORE 230iF0R i=l TO kiREAD o [25783 
t(i1,0(i))NEXT 

230 DATA ,255,UN BATON,20,,100,,255 [133523 
,,255,UN GRAND COFFRE,301,UN PLAN.l 
01,UNE BOUTEILLE,2,UN GIGOT,304,UN 
SAVON,24,DES ALCOOLS,312,DES FRUITS 
,308,,255,DES CLES,110,,255,,255,UN 
E CARTE MAGNETIQUE,338,,255,,255,UN 
PASSE,113,,255,,255,UNE FLUTE,133 
240 DATA UNE DISQUETTE,129,DES LIVR [95491 
ES,26,UN ORDINATEUR,26,UNE AMPOULE, 

123,,255,UNE SERVIETTE,334,ON PRISO 
NNIER,335,UNE NOTE,125,UNE ETIQUETT 
E,314,UNE BOMBE,14,,255,UN PANIER,3 
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250 fO-Oifl»0>f2=0>F3=0:f4=0>F5=0:< 110732J 

6*0>f7*0>F8=0lF9=0)fl0=0>Flt*0)f12= 

0)F13=0)F14=0)f15=0)f16=0:F 1 7 = 0i f 18 

*0iF19=0iF20=0ig=0ie*0iv»100ip=0ib= 

0>c*0>tb!«0>q=CINT<RND*4)+l]qs=CINT 

<RND*99)+1 !s=CINT(RND*99)+1 

260 MODE 1iBORDER 14iPAPER liPEN 3: C13813 

CLS 

270 WIND0M41,2,39,21,24)PAPER*1,1 : P E27183 
EN#1,3■CLS#1 

280 WINDOW#2,1,30,1,1:PAPER#2,3)PEN C24053 
*2,1 

290 WIND0W#3,32,39,2,6)PAPER#3,1>PE C24843 
N#3,3)CLS#3 

300 WIND0W#4,32,39,B,10)PAPER#4,1>P [2606] 
EN#4,0iCLS#4 

310 WIND0W#5,1,30,2,19)PAPER#5,2)PE C33113 
N#5,0lCL8#5 

320 WIND0W#6,32,39,14,18iPAPER#6,l: 
PEN#6,0lCLS«6 

330 WIND0W#7,32,39,12,12:PAPER#7,1: 
PEN#7,3)CLS#7 

340 L0CATE#6,3,3:PRINT#6,”0 "CHRt(2 
02)" E“lL0CATE#6,5,I :PRINT#6,"N")LO 
CATE#6,5,5)PRINT#6,"S”:PEN#6,3 
350 PRINT#4,CHR#(244)CHRP(245)CHRP( 

246)CHR*(247)>PRINT#4,CHR*(248)CHR# 

(249)CHR*(250)CHR#(251)iPRINT44,CHR 
*(252)CHR#(253)CHR*(254)CHR#(255)|i 
PEN#4,3 

360 PLOT-2,382,1 :DRAN 476,382)DRAW 
476,98)DRAW 2,9B)DRAW 2,382)PL0T 14 
,372)DRAW 464,372:DRAN 464,108iDRAW 
14,108)DRAW 14,372 
370 PLOT 1,4,3)DRAW 639,4)DRAW 639, 

92)DRAW 1,92)DRAW 1,4 
380 PLOT 488,398)DRAN 638,398>DRAW 
638,296)DRAW 488,296>DRAW 488,398 
390 PLOT 488,292:DRAN 638,292)DRAM 
638,236)DRAW 488,236>DRAW 488,292>P 
LOT 488,232)DRAW 638,232>DRAW 638,2 
02)DRAW 488,202)DRAW 488,232 
400 PLOT 488,198)DRAW 638,198)DRAW 
638,981 DRAW 488,98>DRAW 488,198 
410 ORIGIN 16,110,16,460,370,110:CL 
G 3 

420 ’* ROUTINE PRINCIPALE « 

430 tps !-TIME 
440 in = l 4 > GOSUB 4050 
450 p=0)p*="DEVANT LA BATISSE">d*=* 

EO")GOSUB 2780)GOTO 470 
460 p=0> p*="DEVANT LA BATISSE": IF F 
1 THEN d*="NEO")GOSUB 2780 ELSE d*= 
“EO")GOSUB 2780 
470 GOSUB 3480 

480 ON PEEK(&A67B)+l GOTO 490,550,1 
,1450,1500 
490 IF w=0 GOTO 470 
500 IF w*4 AND n=18 THEN IF NOT <0 
THEN f0=-l)GOSUB 4000:G0T0 470 ELSE 
GOSUB 4020)GOTO 470 
510 IF w=1 AND n=l THEN m-24>GOSUB 
4050lGOTO 4110 

520 IF <w=2 OR w=3) AND n=l GOTO 29 
80 

530 IF (h=14 OR w=15 OR m- 16) AND n 
= 3 AND f 2 THEN GOSUB 3800) IF **="N" 

THEN F3=-l>v=v-4:o(31=101:»=45>G0SU 
B 4050:GOTO 550 ELSE *=28)GOSUB 405 


0)GOTO 4110 

540 GOSUB 3990:GOTO 470 [1664] 

550 F0=0)F2=0)F4=0ip=l)p*=*DANS L’E [3989] 
NTREE")d*="N":GOSUB 2780 
560 GOSUB 3480 [993] 

570 ON PEEK ( le A6 7 B ) +1 GOTO 5B0,640,4 [1533] 
60,1,1 

580 IF w=0 GOTO 560 [804] 

590 IF w=10 AND n=6 THEN IF (14 OR [6408] 
FO) GOTO 630 ELSE F0--1>o(7) = 1 :o(6) 

=255:GOSUB 2800:o(6)=301> v=v-l:GOSU 
B 2870)GOTO 560 

600 IF w< >4 OR n< >3 GOTO 620 ELSE I [27013 
F (NOT FO OR 14) GOTO 630 
610 GOSUB 3830) IF INSTR («>*, "COFF" ) > [4727] 
0 THEN F4=—1)v=v-2)GOSUB 2B70)G0SUB 
4000)GOTO 560 ELSE GOSUB 3990)GOTO 
610 

620 IF w=18 AND n = 6 AND NOT F4 AND [3790] 
FO THEN GOSUB 40O0)F0=0)IF o<7) = 1 T 
HEN o(7)=101)GOTO 560 ELSE 560 


630 GOSUB 3990)G0T0 560 [1662] 

640 p=2:p*=”LA SALLE DES GARDES")dt [52003 
= "SEO")GOSUB 2780:F0—0:F2=0iIF NOT 
F3 THEN *=22:GOSUB 4050)G0T0 4110 
650 GOSUB 3480 [993] 

660 ON PEEK(6A67B)+1 GOTO 670,1,550 [1947] 
,780,1590 

670 GOSUB 3990:GOTO 650 [16283 

680 p=3ip*="DANS UN COULOIR">d*="NS [2713] 
")GOSUB 2780 

690 GOSUB 3480 [993] 

700 ON PEEKUA678)+1 GOTO 710,970,1 [1827] 
080,1,1 

710 GOSUB 3990:GOTO 690 [1620] 

720 p=4)p#*"SALLE A MANGER DES OFFI [4544] 

CIERS* > d*="NE":GOSUB 2780 

730 GOSUB 3480 [993] 

740 ON PEEK(&A67B) +1 GOTO 750,780,1 ['13393 

,1140,1 

750 IF w=0 GOTO 730 [7943 

760 IF w*23 AND n=9 THEN IF NOT F6 [63633 
THEN GOSUB 4000)o*(9)="UN OS DE "+R 
IGHT*(o*<9),LEN(o*<9)>-3))V=v+8)G0S 
UB 2870)F6—— 1>GOTO 730 

770 GOSUB 3990lGOTO 730 [15883 

780 p*5)p#="DANS UN COULOIR">d*="NS [66843 
0*)GOSUB 2780)IF NOT F4 THEN *=22)G 
OSUB 4050)GOTO 4110 

790 GOSUB 3480 [993] 

800 ON PEEK(6A67B)+1 GOTO 810,1270, [1335] 
720,1,640 

810 GOSUB 3990)GOTO 790 [16243 

820 p=6ip*=*DANS UN COULOIR")d*="NS [2023] 
EO")GOSUB 2780 

830 GOSUB 3480 [993] 

840 ON PEEK(l<A678) +1 GOTO 850,1720, [2263] 
1060,910,860 

850 GOSUB 3990)G0T0 830 [16563 

860 p=7Ip#="DANS UN COULOIR")d#="NE [1856] 
")GOSUB 2780 

870 GOSUB 3480 [993] 

880 ON PEEK(IA67B)+1 GOTO 900,890,1 [1434] 
,820,1 

890 IF NOT F15 THEN «=54>G0SUB 4050 [24123 
)GOTO 3130 ELSE 1190 

900 GOSUB 3990)GOTO 870 [16163 

910 p=8)p#="UNE SALLE’DE SEJOUR")d* [25273 
*"NSEO“)GOSUB 2780 

920 GOSUB 3480 [9933 


[25403 

[27683 

[17533 

[6677] 

[6771] 

(25773 

[33783 

[7058] 

[46063 

[17113 

[8223 

[8113 

[17713 

[4099] 

[61803 

[993] 

[19023 

[7583 

[66413 

[2844] 

[1501] 

[91353 
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930 ON PEEK(tiA67B) +1 GOTO 940,1390, 

1270,970,820 

940 IF «*0 GOTO 920 

950 IF w*23 AND n*12 AND o<12)=308 

THEN GOGUB 4000iv*v+5iGOSUB 2870so( 

12)*255)GOTO 920 

960 GOSUB 3990iG0T0 920 

970 p*9ip*=*LA CHAMBRE FROIDE" 1 d*=" 

* * GOSUB 2780 

980 **301GOSUB 4050iG0T0 4110 
990 p*10ipt**LE BUREAU DU 6E0LIER"! 
d»*"NO"iGOSUB 2780 
1000 GOSUB 3480 

1010 ON PEEKUA67BH-I GOTO 1020,140 
0,1,1,1340 

1020 1F w=0 GOTO 1000 
1030 IF w*10 AND n*15 THEN IF NOT f 
8 THEN T8*-liv=v-lio(14)*10iG0SUB 2 
8 OO 1 GOSUB 2870iG0T0 1000 
1040 IF «*1B AND n*15 THEN IF <8 TH 
EN I8*0iGOSUB 4000lIF o(141*10 THEN 
0 (14)*110iGOTO 1000 ELSE 1000 
1050 GOSUB 3990IG0T0 1000 
1060 p-11 1 p*-“LES TOILETTES" ld$* ,l NO 
* 1 GOSUB 2780 

1070 **29iG0SUB 4O50iG0TO 4110 
1080 p*12ipt*"DANS LE BAR"!d*="NS" 1 
GOSUB 2780 
1090 GOSUB 3480 

1100 ON PEEK(lcA67B) *1 GOTO 1110,680 
,1140,1,1 

1110 IF «*0 GOTO 1090 

1120 IF <w=2t OR w=22) AND n*ll THE 

N **37 1 GOSUB 4050iGOT0 4110 

1130 GOSUB 3990sGOTO 1090 

1140 p=13ip«="LE SALON"!d*="NO”!GOS 

UB 2780if0*0 

1150 GOSUB 3480 

1160 ON PEEK(IA67B)+1 GOTO 1170,108 
0,1,1,720 

1170 IF w=0 GOTO 1150 
1180 IF w=26 AND n*19 THEN <0=-liv= 
v-1 1 GOSUB 2870s 0 (20) = 13!GOSUB 2800: 
GOTO 1150 

1190 p=14 1 p$="LE LABORATOIRE" 1 dt=”N 
S* 1 GOSUB 2780 
1200 GOSUB 3480 

1210 ON PEEK(!cA67B) + I GOTO 1230,122 
0,860,1,1 

1220 IF NOT f17 THEN *=50!G0SUB 405 
Oixn=lî GOTO 1200 ELSE 1420 
1230 IF ('«=19 OR w=20) AND n=32 THE 
N fli*63lGOSUB 4050iGOTO 1200 
1240 IF «032 OR nOl GOTO 1260 
1250 GOSUB 3850!IF INSTR<«*,"PASS*) 
>0 AND 0 (20)=200 THEN f 17=-1 !GOSUB 
4000iv*v-l!GOSUB 2870lG0T0 1200 
1260 GOSUB 3990î GOTO 1200 
1270 p=15ip*="DANS LA CUISINE* 1 dF=* 
NS"!GOSUB 2780 
1280 GOSUB 3480 

1290 ON PEEK(6A67B) +1 GOTO 1300,910 
,780,1,640 

1300 IF w=0 GOTO 1280 

1310 IF w=10 AND n=13 THEN m=38!G0S 

UB 4050iG0T0 4110 

1320 IF w*10 AND n=4 THEN *=39iG0SU 
B 4050:GOTO 4110 
1330 GOSUB 3990î GOTO 1280 
1340 p=I 61 p4="DANS UN COULOIR"!d*=* 
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C15143 SE”!GOSUB 2780 

1350 GOSUB 3480 

C9243 1360 ON PEEK(&A67B)+1 GOTO 1370,1,9 

128693 10,990,1 

1370 GOSUB 3990SG0T0 1350 

1380 p=17ip*="LA FOSSE AUX CROCODIL 
C16543 ES" 1 d$="” 1 GOSUB 2780 

I2530I 1390 m=31iGOSUB 4050iG0T0 4110 

1400 p=18ipt="LA CHAMBRE DE TORTURE 
C11083 " 1 dF=""!GOSUB 2780 

112991 1410 *=32!GOSUB 4050iG0T0 4110 

1420 p=19|p4="UNE ANTICHAMBRE" 1 dt*" 
[993] NS" 1 GOSUB 2780 

[1941] 1430 IF NOT fl8 THEN m=80iG0SUB 405 

0 

[944] 1440 GOTO 3310 

[3719] 1450 p=20ipF="DEVANT LA MAISON’id** 

"OE”!GOSUB 2780if0=0 
1460 GOSUB 3480 

[4882] 1470 ON PEEK(&A67B)+1 GOTO 1480,1,1 

,2730,460 

1480 IF w=0 GOTO 1460 
U796] 1490 GOSUB 3990|G0T0 1460 

[2788] 1500 p = 21î pt*"DEVANT LA MAISON"idt= 

"OE*!GOSUB 2780i[0=0 
[2022] 1510 GOSUB 3480 

[33021 1520 ON PEEK(IA67B)+1 GOTO 1530,1,1 

,460,2750 

[993] 1530 IF w=0 GOTO 1510 

[1964] 1540 GOSUB 3990iG0TD 1510 

1550 p = 22ï p$ = "LA SALLE D‘ARMES"idt= 
[935] "N"!GOSUB 2780lL0CATE 8,10iPRINT CH 

(2491] Ri<149)" ARMES "CHRi<149) 1 LOCAT 
E 8,9iPRINT CHR* <150)STRING* <11,154 
[1714] )CHR*(156)îLOCATE B,11 1 PRINT CHRtll 

[3168] 47)STRINGi(11,154)CHRi(153 )1 GOTO 15 

80 

[993] 1560 GOSUB 3480 

[1837] 1570 ON PEEKUA67B)+1 GOTO 1580,159 

0 , 1 , 1,1 

[915] 1580 »*40iGOSUB 4050lx«=OlGOTO 1560 

[47521 1590 p=23lp*=*LA CHAMBRE DES GARDES 

’1 di=“NSE” 1 GOSUB 2780iIF NOT f4 THE 
N m=22IGOSUB 4O50iG0T0 4110 
[2894] 1600 GOSUB 3480 

1610 ON PEEK!!<A67B) +1 GOTO 1620,165 
[993] 0,1550,640,1 

U454) 1620 IF «=10 AND n=21 THEN IF NOT f 

2 THEN f2*-l 1 v*v-l 1 GOSUB 2870io(27) 
[2210) =23iGOSUB 2800|GDT0 1600 

1630 IF «*18 AND n=21 THEN IF f2 TH 
[2580] EN T2*0 iGOSUB 4000iv=v-l 1 GOSUB 2870 

I IF o(27)=23 THEN 0 (27)=123iGOTO 16 
[1360) 00 ELSE 1600 

[4953] 1640 GOSUB 3990lG0T0 1600 

1650 p=24 1 pF=”UNE SALLE DE DOUCHE"! 
d$*"SE"iGOSUB 2780 
[1788] 1660 GOSUB 3480 

[42801 1670 ON PEEK(6A67B)+1 GOTO 1680,1,1 

590,1700,1 

[993] 1680 IF w=0 GOTO 1660 

[1921] 1690 IF w*9 AND n*10 THEN f7=-liG0S 

UB 4000IG0T0 1660 ELSE 1710 
[889] 1700 IF f7 OR 0 < 10) =*200 GOTO 1060 E 

(2802) LSE »*36iGOSUB 4050iGOTO 4110 

1710 GOSUB 3990iG0T0 1660 
[2928] 1720 p=25ip$="LE BUREAU DU COMMANDA 

NT* 1 d$*“NS* 1 GOSUB 2780 
[17723 1730 GOSUB 3480 

[2677] 1740 ON PEEK<!<A67B> +1 GOTO 1750,179 


[993] 

[1541] 

[1798] 

[3086] 

[2415) 

[24883 

[11833 

[1555] 

[24943 

[4513 

[3507] 

[993] 

[18313 

[9333 

[18161 

[2150] 

[9933 

[2070] 

[9393 

(16063 

[105643 


[9933 

(1300] 

[1168] 

[5914] 


[993) 

[1699] 

[5848] 


[4097] 


[17723 

(45473 

[9933 

[.18233 

[10363 

[20083 

[2079] 

(17603 

[28973 

C99Ï3 

[1674] 
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0,820,1,1 

1750 IF *t»0 GOTO 1730 

1760 IF w*10 AND n=6 THEN IF NOT fl 

6 GOTO 3200 

1770 IF ***18 AND n*6 AND fl6 THEN f 

16-OiGOBUB 40001 IF o < 31> =25 THEN o( 

31)-125iGOTO 1730 ELSE 1730 

1780 G0SU8 39901 GOTO 1730 

1790 p=26*pt="DANS LA BIBLIOTHEQUE" 

id*="NS"*GOSUB 2780if3=0 

1800 GOSUB 3480 

1810 ON PEEK (ScA67B) f-1 GOTO 1820,188 
0,1720,1,1 

1820 IF t*=0 GOTO 1800 
1830 IF (***19 OR **=20) AND n*25 THE 
N «=44!GOSUB 4050IG0T0 1800 
1840 IF ***27 AND n-26 THEN IF NOT f 
3 THEN f3*-l**=46*G0SUB 4050iG0T0 1 
800 

1850 IF t*»2B AND n*26 THEN IF f3 TH 

EN f 3*0iGOSUB 4 OOO 1 GOTO 1800 

1860 IF w=29 AND n=24 THEN IF (f3 A 

ND o(24)*200) THEN »=79*G0SUB 4050i 

v*v-liGOSUB 2870io(24)*26ib*b-liG0S 

UB 2900iGOTO 1800 

1870 GOSUB 3990iG0T0 1800 

1880 p*27*pt*“DANS UN COULOIR"!d*=" 

NS" 1 GOSUB 2780 

1890 GOSUB 3480 

1900 ON PEEK(fcA67B) +1 GOTO 1910,203 

0,1790,1920,1 

1910 GOSUB 3990IG0T0 1890 

1920 p=28*pt*"DANS UN COULOIR"!d* = * 

NSE"IGOSUB 2780 

1930 GOSUB 3480 

1940 ON PEEK(&A67B)*-1 GOTO 1950,210 
0,1380,1960,1 
1950 GOSUB 3990IG0T0 1930 
1960 p=29*pt="LA CHAMBRE DU GEOLIER 
* 1 d*=”0" 1 GOSUB 2780*IF NOT fl2 THEN 
«t*47 ! GOSUB 4050 
1970 GOSUB 3480 

1980 ON PEEK(4A67B)+1 GOTO 1990,1,1 
,1,1920 

1990 IF **=30 AND n*27 AND NOT fl2 A 

ND o(27)»200 THEN IF fil THEN #=49* 

GOSUB 4050*GOTO 4110 ELSE fl2=-l*v= 

v-1 1 o(27)*255*b*b-l*o(24)*29*GOSUB 

2780*GOSUB 2900*G0T0 1970 

2000 IF w=0 GOTO 1970 ELSE IF NOT f 

12 THEN »=48* GOSUB 4050*G0T0 4110 

2010 IF (w*24 OR w=25) AND n*16 THE 

N v=v*-5*tps !*tps!-18000*GOSUB 4000i 

GOSUB 2870*GOTO 1970 

2020 GOSUB 3990iG0T0 1970 

2030 p=30ip*="UNE CHAMBRE" 1 d*="NS ”1 

GOSUB 2780 

2040 GOSUB 3480 

2050 ON PEEK(4A67B)+1 GOTO 2060,222 
0,1880,2100,1 
2060 IF w=0 GOTO 2040 
2070 IF <w=24 OR w= 25) AND n*16 THE 
N v=v+5*tps !=tps!-1BOOO*GOSUB 4000* 
GOSUB 2870*GOTO 2040 
2080 IF w=10 AND n=21 THEN *=42*G0S 
UB 4050*GOT0 4110 
2090 GOSUB 3990iG0T0 2040 
2100 p=31ip*="UN COULOIR"*df*“NSE"* 
GOSUB 2780 
2110 GOSUB 3480 


C10383 
120651 

C5815I 


[1594] 

[4051] 

[993] 

[1566] 

[976] 

[3080] 

(2249] 


C3875] 

[8056) 


[1701] 
[4551 ] 

[993] 

11618) 

[1683] 

[2509] 

[993] 

[21631 

[1794] 

[4430] 


[993] 

[1676] 

[8815] 


[2837] 

[4890] 


[1754] 

[15151 

[993] 

11752] 

[896] 

[4820] 


[2109] 

[1559] 

[1694] 

[993] 


2120 ON PEEK(4A67B)+1 GOTO 2130,230 [2292) 
0,1920,2140,1 

2130 GOSUB 3990iGOTO 2110 [1345] 

2140 p = 32* pf*“DANS UNE CELLULE"id*= [3007] 
"NO"* GOSUB 2780 

2150 GOSUB 3480 [993] 

2160 ON PEEK(&A67B)+1 GOTO 2180,217 [1806) 

0 , 1 , 1,2100 

2170 IF f 13 GOTO 2400 ELSE m=50*G0S [2563] 

UB 4050* xn=l 1 GOTO 2150 

2180 IF **=0 GOTO 2150 [890] 

2190 IF w<>32 OR nOl GOTO 2210 U427) 

2200 GOSUB 3850*IF INSTR(mf,"CLE")> [5277] 

0 AND o(141*200 THEN fl3*-lsG0SUB 4 

000* v*v-l* GOSUB 2870*G0T0 2150 

2210 GOSUB 3990iG0T0 2150 [1561] 

2220 p = 33* pi="LA CHAMBRE DU COMMAND [3339] 

ANT" 1 d4="NSO"* GOSUB 2780 

2230 GOSUB 3480 [993] 

2240 ON PEEK(lcA67B)+l GOTO 2250,248 [2246] 

0,2030,2520,2460 

2250 IF w*0 GOTO 2230 [850) 


2260 IF w*10 AND n*15 THEN IF NOT f (40321 

9 THEN f9=-liv=v-l 1 GOSUB 2870* 0 (23) 

*33* GOSUB 2800 : GOTO 2230 

2270 IF **=1B AND n»15 THEN IF f9 TH [6922) 
EN f9=0*GOSUB 4000*v»v-l 1 GOSUB 2870 
tIF 0 (23)=33 THEN o(23)* 133*GOTO 22 
30 ELSE 2230 

2280 IF (***24 OR ***25) AND n=16 THE [25943 
N «t=43* GOSUB 4050*GOTO 4110 
2290 GOSUB 3990*G0T0 2230 [1569] 

2300 p=34*pt="LA SALLE DE BAIN"* df= [1810] 
"NS"IGOSUB 2780 

2310 GOSUB 3480 [993] 

2320 ON PEEKI6A67B)M GOTO 2330,252 [2059] 

0 , 2100 , 1,1 

2330 IF **=0 GOTO 2310 [890] 

2340 IF ***10 AND n = 13 THEN IF NOT f [2854] 

10 THEN f10*-1* GOSUB 4000*G0T0 2310 

2350 IF **=18 AND n=13 THEN IF flO T [4002] 
HEN f10=0*GOSUB 4000*G0T0 2310 
2360 IF (*«=22 OR w=23) AND n=2S AND [4455] 
flO THEN GOSUB 4000*v=v+3*GOSUB 28 
70lf11 = -l 1 GOTO 2310 

2370 IF **<>31 OR n<>22 GOTO 2390 [885] 

2380 GOSUB 3850*IF INSTR(n*,"SERV" ) [38323 
>0 THEN f11=0* GOSUB 400O*G0T0 2310 
2390 GOSUB 399O*G0T0 2310 [1561] 

2400 p=35*p*="UNE AUTRE GEOLE”id*=" [4571] 
NS" * GOSUB 2780*IF NOT fl4 THEN «1 = 51 
IGOSUB 4050 

2410 GOSUB 3480 [9933 

2420 ON PEEK(&A67B)+1 GOTO 2430,257 [1373] 
0,2140,1,1 

2430 IF **=0 GOTO 2410 (703) 

2440 IF **=33 AND n=8 AND o(8l=200 T [117851 
HEN f14=-1 1 GOSUB 4000* 0 (8)=35*b=b-l 
lot(8)=o*<8) + " VIDE"*ot(30)*ot(30) + 

" MORT"* GOSUB 2900*b=52iGOSUB 4050* 

LOCATEIl,32,VPOS(#1)*PRINT#I,qs"'"i 
*n = 53 * GOSUB 4050*G0T0 2410 
2450 GOSUB 399ÛIGOTO 2410 [1581] 

2460 p*36»p$»"UN VIEIL ATELIER"*d$= [30013 
GOSUB 2780 

2470 n=34î GOSUB 4O50*GOTO 4110 [1462] 

2480 p=37lpf="DANS UN COULOIR"Idt=" (3078) 
SEO"iGOSUB 2780 

2490 GOSUB 3480 (993) 

2500 ON PEEK(&A678)+1 GOTO 2510,1,2 [1699] 
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220,2520,2460 

2510 GOSUB 3990:G0T0 2490 C15653 

2520 p=38:pt="UNE CHAMBRE* 1 d*="S0 ”1 12153) 
GOSUB 2780 

2530 GOSUB 3480 1993) 

2540 ON PEEKUA67BM-1 GOTO 2550,1,2 11756) 
300,1,2480 

2550 IF w~0 GOTO 2530 1703) 

2560 n>=41 :GOSUB 4050iG0T0 41 10 1863) 

2570 p = 39:p*="UNE OUBLIETTE"îdt ="”1 12422) 
GOSUB 2780 

2580 ®=35:GOSUB 4050:G0T0 4110 1804) 

2590 p=40: p*="UN STAND DE TIR" j d*=" 12882] 
* 1GOSUB 2780- 

2600 m=33iGOSUB 4050iG0T0 4110 11420) 

2610 p*41 1 pi*”LA SALLE DE REUNION"! 13574) 
d*="NS":GOSUB 2780 

2620 GOSUB 3480 1993] 

2630 ON PEEKU.A67B1 + 1 GOTO 2650,264 11920) 
0,1420,1,1 

2640 IF f19 GOTO 2660 ELSE 3420 1712) 

2650 GOSUB 3990iG0T0 2620 11617] 

2660 p=42:p#="LE GARAGE"sd*=”S"sGOS 11534) 
UB 2780 

2670 GOSUB 3480 1993) 


2680 ON PEEK(5cA67B) -M GOTO 2690,1 ,2 1 1593) 
590,1,1 

2690 IF h= 36 AND n=34 AND NOT 420 T 13567) 
HEN f 20= — 1 ! «1=77i GOSUB 4050: v=v-l i GO 
SUB 2870 3 GOTO 2670 

2700 IF w=37 AND n=34 AND F20 THEN 14171) 
p = l00:«i=78:G0SUB 4050iCLG 2|L0CATE 
7,10lPRINT"CA VA PETER ! !”3 GOTO 272 
0 


2710 GOSUB 3990:GOTO 2670 116713 

2720 GOSUB 4210iGOTO 2720 1840] 

2730 p=43:p*="L 'ANGLE EST DE LA MAI 13402) 

SON":dt="0":GOSUB 2780 

2740 ®=27:GOSUB 4050:G0T0 4110 12415) 

2750 p=44:pF="L'ANGLE OUEST DE LA M 12206) 
AISON”:d*="E":GOSUB 2780 
2760 «i=28:GOSUB 4O50:GOTO 4110 11306) 

2770 '« INFORMATIONS 1349] 

2780 GOSUB 2790:G0SUB 2800:G0SUB 28 113795] 


60:GOSUB 2870:GOSUB 4210:IF <p=29 A 
ND NOT f12) OR p=22 THEN CLG 1 1 RETU 
RN ELSE IF <p = 0 AND 14) THEN RETURN 
ELSE CLG 3:CALL L9C43,p:RETURN 
2790 CLS#2:PRINT#2,pt:RETURN 11709) 

2800 j*0:1=0:PRINT#1,"VOUS VOYEZ :" 12845) 
2810 FOR i = l TO l< 1443) 

2820 IF o(i)=p OR o(i)-300=p THEN 1 15427) 
=-l:j=j+l:u=i:PRINT#l,o*(i)”, 

2830 NEXT: IF NOT 1 THEN PRINT#1,“RI 13357) 
EN DE SPECIAL. 


2840 IF 1 AND j = l THEN xn = u 111613 

2850 PRINTIl,CHRP(8)*."CHR*(13):RET 12251) 
URN 

2860 CALL 69C40,®d# :RETURN 11111) 

2870 L0CATE*4,5,2:PRINT#4,USING"### 12522) 
7.” iv 

2880 IF v=0 THEN m=0:G0SUB 4050:FOR 12898] 
tp = l TO 1000:NEXT: GOTO 4110 
2890 RETURN 15553 

2900 CLS43 1371) 

2910 FOR i = l TO k 14433 

2920 IF o(i)< >200 GOTO 2960 110853 

2930 z*=o*(i):IF LEN(z#)>8 THEN z*= 16558) 
RIGHT*(o*(i),LEN(oF(i)1-4):IF LENlz 
t)>8 THEN zt=LEFT*(z*,8) 
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2940 PRINT#3,z*j 14793 

2950 IF LEN(z»)<8 THEN PRINT#3,CHR* 124163 
(13) 

2960 NEXT:RETURN 19403 

2970 '* ACTIONS DANS TPS 11365) 

2980 IF 42 THEN m=19:G0SU8 4050:G0T 125133 
0 4110 

2990 »-15:G0SUB 405O:F0R i = l TO 200 12952) 
0:NEXT 

3000 IF NOT 40 THEN «i=16:G0SUB 4050 114753 


: GOTO 4110 

3010 »=17lGOSUB 4050 15153 
3020 e a Oixn=3:42=-1 :PRINT#1,"> 11910) 
3030 t!“TIME ' 1591) 
3040 WHILE TIME-t!<1000 115163 
'3050 z*=UPPER$(INKEYt) 12005) 


3060 IF zl>"“THEN PEN#1, 0: PRINT#1,C 17804) 
HRt(8)z*|:PEN«1,3:PRINT#1," ”1 iPEN# 

1,0: «il»z 1 1 GOSUB 4490:G0SUB 3490:G0T 
0 3090 

3070 WEND 1390-3 

3080 m=18:GOSUB 4050:41=0:GOTO 460 11365) 

3090 IF w=9 AND n=3 THEN *=22:G0SUB I19833 
4050:GOTO 4110 

3100 IF PEEK(&A67B) THEN »=23:G0SUB 126143 
4050:GOTO 4110 

3110 IF <w»3 OR w=5 OR w=6 OR h=7)A 192573 

ND n-3 THEN IF o(2)*200 THEN 40=0:4 

1=-1:44=-1:»=20:GOSUB 4050:v=v-2:GO 

SUB 2870:d4=“NE0":GOSUB 2860:G0T0 4 

70 ELSE m=21:GOSUB 4050:G0T0 4110 

3120 GOSUB 3990:GOSUB 3480:G0T0 309 12301) 

0 


3130 e»Oit!»TIME:PRINT#l,"> 11387) 

3140 WHILE TIME-t!<1000 ' 11516) 

3150 z«"UPPERt(INKEY*> 12005) 

3160 IF z4>""THEN PEN#1,0:PRINT#1,C 17348) 
HR#(B)z#|:PEN#1,3:PRINT#1," :PEN# 

1,0:m*=z*:GOSUB 4490:G0T0 3l90 

3170 WEND 13903 

3180 m*55 1 GOSUB 4050:G0T0 4110 12041) 

3190 IF VAL(»*)»qs THEN GOSUB 4000: 125253 

415=-l: GOTO 870 ELSE 3180 

3200 j=0:m=56:GOSUB 4050 1981) 

3210 t!=TIME: j = j + 1 : IF j = 7 THEN «1=57 14324) 

:GOSUB 4050:GOTO 4110 

3220 PR INT# 1, "ESSAI * j " > "pWHILE T 129803 
IME-t!<1500 

3230 z*=UPPER*(INKEY*> 12005) 

3240 IF zt>"'THEN PEN#1,0:PRINT#1,C 17436) 
HR*<8)z#|:PEN#l,3lPRINTIl," "j:PEN# 

1,0:«*«z*:GOSUB 4490:GOTO 3270 

3250 WEND 13903 

3260 »=58:GOSUB 4050:G0T0 4110 11578) 


3270 z=VAL(»*): IF z=0 AND z*<>"0" T 131783 
HEN GOSUB 3990:GOTO 3210 
3280 IF z = b THEN *=59:G0SUB 4050:o( 15824) 
31)=25:GOSUB 2800:v=v-l:GOSUB 2870: 

416= — 1iGOTO 1730 

3290 IF z<t THEN «i«60:G0SUB 4050:G0 119943 
TO 3210 

3300 IF z>B THEN «i=61:G0SUB 4050:G0 119723 
TO 3210 

3310 e=0it!=TIME:PRINT#1,”> ”| 11387) 

3320 WHILE TIME-t!<1500 * 11496) 

3330 z*=UPPER*(INKEYt) 120053 

3340 IF z*>""THEN PEN#1,0:PRINT#1,C 17794) 
HR*(8)z*|:PEN#1,3:PRINTIl," "|j PEN# 

1,0:■*=#*:GOSUB 4490:G0SUB 3490:G0T 
0 3380 


Ça VA PETER ZORGLUB! 


3350 WEND [390] 

3360 ®=64iGOSUB 4050iG0T0 4110 [1487] 

3370 GOSUB 3480 [993] 

3380 ON PEEK(&A678)+1 GOTO 3400,339 [1526] 
0,1190,1,1 

3390 IF T18 GOTO 2610 ELSE 3360 [2277] 

3400 IF w = 34 AND n=23 AND o<23)=200 [4049] 
THEN « = 65»GOSUB 4050i f 1B = -1Iv = v-lI 
GOSUB 28701 GOTO 3370 

3410 GOSUB 3990» IF f 18 GOTO 3370 EL [3111] 
SE 3310 

3420 ® = 66»GOSUB 4050 [1211] 

3430 GOSUB 4480 [1017] 


3440 z=VAL(«*)»IF z=0 AND m*<>"0” T [3531] 
HEN GOSUB 3990»GOTO 3430 
3450 IF z = q THEN ®=59»G0SUB 4050»fl [2748] 
9*-l» GOTO 2620 

3460 ® = 67 » GOSUB 4050»G0T0 4110 [2187] 

3470 ANALYSE SYNTAXIQUE (1778) 

3480 e=0» GOSUB 4480 [1061] 

3490 IF LEFTf(®t,2) ="SE"THEN ®4=RIG [2748] 
HT»(a*,LEN(a»)-3) 

3500 IF RIGHT4 (a*,4)»* TOI"THEN a** [2902] 

LEFT*(®*,LEN(®»)-4) »xn=0 

3510 IF RIGHT4 (ai ,4)=" LES"THEN »f= [3266] 

LEFTi(«i,LEN(«i)-4)ie=-l 

3520 zi=RIGHTi(ai,3)»IF zi=" LE"OR [4084] 

zi=" LA’THEN «4«LEFTf(«f,LEN(®4)-3) 

» e=-l 

3530 IF «f="N”OR ®i="NORD"THEN POKE [2312] 
IA67B, 11 GOTO 3880 

3540 IF ®i="S“OR m*="SUD“THEN POKE [1879) 
6A67B,2» GOTO 3890 

3550 IF mi="E"OR ®i="EST"THEN POKE [2087] 
&A67B,3» GOTO 3900 

3560 IF «$»"0“OR «i="OUEST"THEN POK [2521] 

E &A67B,4 » GOTO 3910 

3570 POKE S.A67B.0 [319] 

3580 IF ®i=’*THEN GOSUB 28O0»GOTO 3 [17611 

490 

3590 »i=mi*” " [414] 

3600 vi»LEFTifmi,4)» IF vt="ATTE*THE [12547] 

N PR INT#1,"LE TEMPS PASSE...“» GOTO 
3480 ELSE IF v*= “REGA"THEN GOSUB 28 
00»GOTO 3480 ELSE st»LEFT$(vi,3)» IF 
si**SAL’OR si=*PUT"OR sf«"CON"OR 5 
$="PED”OR s4=”VIE"0R LEFTi(al,7)="E 
NFOIRE’GOTO 4010 

3610 IF vt="MERD"OR vt«"ENCU"OR vi» [7841] 
"CRET'OR vi="ORDU"OR vi**ENFL"OR vi 
«”ESPE"OR vi*"IDIO”OR vf»"INBE"OR v 
4=“TA G"OR vi="AFFR"OR vi="PAUV"GOT 
0 4010 ELSE IF vi="SUIC”OR vi*"QUIT 
"GOTO 4110 

3620 FOR i = l TO LEN(*i> STEP 4»IF v [16470] 

fOMIDf (wf ,i ,4) THEN NEXTiFOR i B l T 

0 LEN(«4)! IF ASC<MIDt(*4,i,1)1*32 0 

R ABC(MID4<«4,i,1))=39 THEN yt=LEFT 

»(«*,i-l>lPRINT#l,"3E NE COMPRENDS 

PAS ")IPEN#1,0» PRINTI1,y4)» PEN#1,3l 

PRINTil,"."» GOTO 3480 ELSE NEXT 

3630 H=i/4 + 11 IF w= 12 OR w=13 THEN ® 12828) 

=25» GOSUB 4050 » GOTO 4110 

3640 **=” "+LEFT4(mt,LEN(m4)-l)»IF [3538) 

LEN(«4ï*4 THEN ®*=»4*“ "»n*=RIGHT4( 

«*,LEN<®*)-1> »GOTO 3670 

3650 FOR i=LEN<®*) TO 1 STEP -11 IF [8217] 
ASC(MID#(a»,i,1))=32 OR ASC(MID4(®4 
,i,1))=39 THEN n*=MID»(a$,l+l,4)lh« 
*RIGHT4(»4,LEN(»4)-i) ELSE NEXT 


3660 IF LEN(nt)=3 THEN n*=" "+n« [1421) 

3670 IF n4=MID4(«4,2,4) THEN IF (un [7144]' 
=0 OR NOT e) THEN PRINT41,"SOYEZ PL 
US PRECIS ) ■ i GOTO 3480 ELSE r» = xn:GO 
TO 3700 

3680 FOR i = l TO LEN<k4) STEP 4» IF n [6962] 
4<>MID4(k4,i,4) THEN NEXT»PRINT41, " 

JE NE CONNAIS PAS LE NOM "|»PEN#1,0 
> PR I NT#1,h4»iPENtl,3» PR I NT#1,*.*»G0 
TO 3480 

3690 n=VAL(MID4(14,i,4)) [1187] 

3700 IF w=m w AND n=xr» THEN GOSUB 40 [9472] 
20»G0T0 3480 ELSE xw=w»xn=n»IF o(n) 

<>p AND o(n)-100<>p AND o(n)<200 TH 

EN PRINT41 , " IL N'Y A RIEN QUI RESSE 

MBLE A CA ICI."iGOTO 3480 

3710 IF o(n)>200 OR <p=29 AND fil) [2430] 

THEN RETURN 

3720 IF w=17 THEN IF o(n><>200 THEN [6174) 
PRINTtl,"VOUS NE POSSEDEZ PAS CELA 
! !”» GOTO 3480 ELSE 0 (n)=p»b=b-l 1 GO 
SUB 2900»G0SUB 2870»GOSUB 4000»w=0: 

GOTO 3480 

3730 IF w=11 OR w=8 THEN IF b=4 THE [8037) 

N PRINT#1,"VOUS ETES TROP CHARGE !" 

»GOTO 3480 ELSE IF olnXlOO THEN o< 
n)=200»b=b + l 1 v=v-l 1 GOSUB 2900»GOSUB 
2870iGOSUB 4000»w=0»GOTO 3480 
3740 IF <w=21 OR w=22) AND n=8 THEN [6478] 
IF NOT f 5 THEN GOSUB 4000»v=v+5»GO 
SUB 2870»f5*-liGOTO 3480 ELSE GOSUB 
3990»G0T0 3480 

3750 IF (w=19 OR w=20) AND n=7 THEN [4232) 
IF o(7)=200 THEN m=26»G0SUB 4050»G 
OTO 3480 

3760 IF <w=19 OR w=20) AND n=31 THE [41233 
N IF o(3I)=200 THEN »=62»G0SUB 4050 


1 L0CATE41,32,VPOS<#l)zPRINT#l,q” '“» 

GOTO 3480 

3770 IF w=35 AND n=33 AND (o(33)=p [3991] 

OR 0 (33)=200) THEN GOSUB 4000»v=v-l 
:GOSUB 2870»tb!*TIME»G0T0 3480 
3780 RETURN [555] 

3790 '*-CPLTS D'INFORMATION [9703 

3800 PRINTil,"DANS QUELLE DIRECTION (2155] 
? ”1 

3B10 GOSUB 4480»®*=LEFT*(m*,l) [1226) 

3820 IF ®f< >"N"AND «tO'S’AND ®t<>" [2442] 
0“AND m4< >"E*' GOTO 3800 ELSE RETURN 
3830 PRINT41,"OU ? [862] 

3840 GOSUB 4480» RETURN [1818] 

3850 PRINTil,“COMMENT ? "| [16903 

3860 GOSUB 4480»RETURN [1818] 

3870 '* TEST DIRECTIONS [172] 


3880 IF PEEK(6A677) THEN GOSUB 3930 [2953] 
»RETURN ELSE 3920 

3890 IF PEEK (lcA678) THEN GOSUB 3930 [2721] 
1 RETURN ELSE 3920 

3900 IF PEEKUA679) THEN GOSUB 3930 [2776) 
1 RETURN ELSE 3920 

3910 IF PEEK(6A67A) THEN GOSUB 3930 (2264) 
1 RETURN 

3920 POKE 6A67B,0»m=l»G0SUB 4050»GO (1690) 


TO 3480 

3930 IF b>2 THEN v=v-3 [1279] 

3940 IF b=2 THEN v=v-2 [12841 

3950 IF b = l THEN v = v-J. [4863 

3960 xw=0»IF v<0 THEN v=0 [1543] 

3970 RETURN [555) 

3980 '* MESSAGES [7341 
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3990 xw=0l »=1 1 GOTO 4030 [13761 

4000 m=4iGOTO 4030 [12581 

4010 c=c+1) m=7+C) GOSUB 4050:IF c = 3 153693 

THEN FOR i = l TO 5000)NEXT)CALL 0 EL 
SE GOTO 34S0 

4020 z = INT(RND*2> +1 :m=10+z: GOSUB 40 C30173 
50)RETURN 

4030 z=INT(RND«3)+l:m=m+Z)G0SUB 405 [21521 


OîRETURN 

4040 '* AFFICHER MESSAGES [8891 

4050 WINDOW SWAP 0,1IPEN 3 [13441 

4060 IF VPOS(#0)=4 THEN PRINT [12221 

4070 CALL R9C4C,VPOS(#0),m [15441 

4080 WINDOW SWAP 0,1 [10311 

4090 RETURN [5551 

4100 •* MORT/UNE AUTRE? [22291 

4110 CLG 3ICALL R9C46 [358] 


4120 RESTORE 4130>F0R 1=1 TO lOiREA [50821 

D x,y,x1,yl ,x2,y2:S0UND l,x,y,7:S0U 

ND 2,x1,y 1,6:SOUND 4,x2,y2,4 1 NEXT i 

4130 DATA 1276,100,319,100,159,100, [109011 

1136,20,284,20,142,20,1073,50,268,5 

0,134,50,1276,20,319,20,159,20,0,10 

0,0,100,0,100,1276,100,319,100,159, 

100,1136,20,284,20,142,20,1073,50,2 

68,50,134,50,1276,70,319,70,156,70, 

902,100,225,100,113,100 

4140 CALL îcBBl 8 J m=74 s ÔOSUB 4050 [15811 

4150 PRINT41,“VOULEZ-VOUS REJOUER ? [22921 
(0/N)" 

4160 rt=UPPER$<INKEYt) [20131 

4170 IF r*=*0*G0T0 220 [11401 

4180 IF r#<>"0"AND rt<>"N''GOTO 4160 [ 1347] 
4190 m=75+g!GOSUB 4050itps !=TIME » CA [4564] 
LL 6BB18:CALL &BC02iPAPER OiPEN 1 sM 
ODE 2)END 

4200 '* GESTION DU TEMPS [22941 

4210 tp5*600-(TIME-tps!)/300)tps#=S [99381 
TR*(FIX(tps/60)):tpsl*=STR*(tps MOD 
60)>tps*=RIGHTt(tps*,LEN(tps*)-l)i 
tpsl4=RIGHT*(tpBl*,LEN(tpslt)-l) 

4220 LQCATE#7,3,1iPRINT# 7,RIGHT4(“0 [31941 
"+tpsi,2)”i"RIGHT4("0"+tpslt,2) 

4230 IF tps<=0 GOTO 4260 [9621 

4240 IF tb !<>0 AND TIME-tb!>=13500 [17001 

GOTO 4280 

4250 RETURN [5551 

4260 IF NOT (tbIOO AND TIME-tb I < » I [32531 

3500) THEN m=68>G0SUB 4050iGOTO 411 
0 

4270 '* EXPLOSION [3981 


4280 CLG 1iBORDER 6,24 [1135] 

4290 FOR i=l TO 3tS0UND 1,0,10,7,0, [4603^ 
0,3jSOUND 1,0,25,5,0,0,10iNEXT i 
4300 FOR i=1 TO 500:NEXT iiBORDER 1 [1779] 
I CLG 3 

4310 IF o(33)=200 THEN m=69)G0SUB 4 [19201 
050)GOTO 4110 


4320 IF o(33)=41 GOTO 4340 [699] 

4330 m*70)GOSUB 4O50iGOTO 4110 [2006] 

4340 IF p=41 THEN m=69)G0SUB 4050)G [17321 
OTO 4110 

4350 IF pOlOO GOTO 4380 [9571 

4360 IF tps>10 THEN m=71)G0SUB 4050 [26911 
iGOTO 4110 

4370 m*72:GOSUB 4050rG0T0 4410 [7351 

4380 IF tps>10 THEN m=69)G0SUB 4050 [1854] 
iGOTO 4110 

4390 *=73:GOSUB 4050iG0T0 4110 [17161 

4400 ** GAGNE [SS6J 

4410 CALL &9C49 [6121 

4420 RESTORE 4460)FOR i=l TO 24>REA (31561 
D x: SOUND 4,x,20,15,1iNEXT i 
4430 PEN 0)LOCATE B,15)PRINT"'Je me [66661 
vengerai “sLOCATE 8,16sPRINT" John 
ny PROOT !'”iPEN 3 

4440 CALL 4BB18 [3891 

4450 g=l)GOTO 4150 [4561 

4460 DATA 60,53,47,45,60,0,45,47,45 (37151 
,40,53,0,53,47,45,36,40,40,45,45,47 
,53,47,60,9999,9999 

4470 ■* ENTREE CLAVIER [11411 


4480 mt=”“:PRINT#i,”> “JIPEN#1,0 [1621] 

4490 r#=UPPER*(INKEY4): IF r*=*" THE (30891 
N GOSUB 42101 GOTO 4490 

4500 IF r*=CHR*(13) THEN PRINT#1,CH [2596] 

R<(B)|”. i ')PEN#1,3!RETURN 

4510 IF rt=CHR'F( 127) THEN GOSUB 454 [21141 

0>rf=""iGOTO 4490 

4520 r=ASC(r*))IF r=45 OR r=39 OR r [122991 
=32 OR (r >=48 AND r<*57) OR (r>=65 
AND r<=90) OR (r>=97 AND r<* 122) TH 
EN IF POS(#1)<38 THEN PRINT#1,CHRt( 
3)r*)iPEN#l,3iPRINT#l,” ")t PEN#1,0) 
m*=m*+r*:GOTO 4490 ELSE'PRINT#!,CHR 
$(8))m=13)GOSUB 4050iGOTO 3480 
4530 GOTO 4490 (5111 

4540 IF POS(#1)=4 THEN PRINT CHRt(7 [21121 
),iRETURN 

4550 PEN#1,3)PRINT#1,CHR*(8)" "CHRt [47301 
(8)CHR4(8)* ’))PEN#l,Oimt=LEFT*(ffl*, 
LEN(m$)-l)tRETURN 


7530:D2 
7538)6B 
7540)BC 
7540)33 
7550)BE 
7558)8A 
7560)76 
7568)76 
7570)6F 
7578)39 
7580)91 
7588)A5 
7590)2F 
7598)DA 
75A0)61 
75A8)38 
7580)83 
7588)4C 


76 42 76 
76 9C 76 

76 09 77 

77 75 77 

77 31 78 

78 Fl 78 

79 OD 7A 
7A EE 7A 
78 EO 7B 
7C 15 7D 
7D 25 7E 
7E EE 7E 
7F AO 7F 

! 7F IC 80 
i 80 85 80 
81 56 81 
1 81 00 82 
i 82 98 82 


4F 76)05 
AF 76) BE 
21 77)4D 
98 77l2D 
54 78)BC 
3C 79) OE 
47 7A)46 
38 7B)05 
FB 70)C4 
54 78)24 
6F 7E)C4 
OB 7F)5E 
BC 7F)FA 
38 80)39 
18 81)E A 
77 81)6D 
15 82)CC 
E3 82)6B 


75C0)3E 83 70 83 CA 83 EA 83lA3 
75C8)10 84 31 84 6C 84 89 84)83 
7580)88 84 4D 4F 4E 20 50 41 » IC 
7588)55 56 52 45 20 56 49 45)93 
75E0)55 58 2C 56 4F 55 53 20l9B 
75E8)45 54 45 53 20 48 4F 52)9C 
75F0)54 08 44 27 45 50 55 49)64 
75F8)53 45 48 45 4E 54 2E 08)74 
7600)43 27 45 53 54 20 44 55)85 
7608)52 20 4C 45 20 48 45 54)87 
7610)49 45 52 20 44 27 41 47)79 
7618)45 4E 54 20 53 45 43 52)C2 
7620)45 54 20 21 08 00 49 48)13 
7628)50 4F 53 53 49 42 4C 45>FF 
7630)20 44 27 41 4C 4C 45 52)A1 
7638)20 50 41 52 20 4C 41 2E)8C 
7640)08 00 49 48 50 4F 53 53>9E 
7648)49 42 4C 45 2E 08 00 56>6B 


7650)4F 55 53 20 
7658)4F 55 56 45 
7660)49 52 45 20 
7668)2E 08 00 41 
7670)53 2C 52 45 
7678120 53 45 52 
7680)21 08 00 44 
7688:4F 52 44 2E 
7690)41 49 4E 54 
7698)54 3F 08 00 
76A0)4E 20 43 4F 
76A8)55 45 2E 2E 
76B0:27 45 53 54 
7688)54 2E 08 00 
76C0)49 4E 2G 52 
76C8I5A 20 50 4F 
7680)45 52 44 45 
7688)49 47 4E 4F 


4E 45 20 50)E0 
SA 20 46 41 ) OE 
43 45 4C 41 !EB 
4C 4C 4F 4E)8F 
53 54 45 5Al42 

49 45 55 58)33 
27 41 43 43)56 
45 54 20 48)17 
45 4E 41 4E)54 
4F 4B 2E 4FIC5 
4E 54 49 4E)4F 
2E 08 00 43)92 

20 46 41 49)29 

50 55 54 41lF7 
45 53 54 45)7C 
4C 49 20 48)59 

21 21 08 00)B5 
42 4C 45 20)6E 
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7C28 » 45 20 56 45 52 54 49 47:DA 

7C30i49 '4E 45 55 53 45 21 0DiA3 

7C38)00 56 4F 55 53 20 56 4F:C6 

7C40i55 53 20 50 4C 41 4E 54i03 

7C48]45 5A 20 53 55 52 20 4CjE9 

7C50:45 20 53 41 56 4F 4E 20iD8 

7C58i45 54 0D 56 4F 55 53 20 jE7 

7C60t46 52 41 43 41 53 53 45«24 

7C68j5A 20 4C 41 20 54 45 54»F8 

7C70:45 20 53 55 52 20 4C 45iFC 

7C78: 20 53 4F 4C 20 45 4E 0DiC2 

7C801 45 43 4C 41 42 4F 55 53i4A 

7C88i53 41 4E 54 20 4C 45 53i3E 
7C90i 20 4D 55 52 53 2E 28 48tli 

7C98> 45 2D 48 45 2D 48 45 211EE 

7CA0i29 OD 00 56 4F 54 52 45iE2 
7CA8» 20 47 4F 55 54 20 49 4Di39 

7CB0» 4D 4F 44 45 52 45 20 50«58 

7CB8» 4F 55 52 20 4C 27 41 4Ci4A 

7CC0: 43 4F 4F 4C 20 56 4F 55i83 

7CC8J 53 50 4C 4F 4E 47 45 20i7C 

7CD0:44 41 4E 53 20 55 4E 20i55 

7CD8j45 54 41 54 20 49 4E 43:7C 

7CE0I4F 4D 50 41 54 49 42 4CiB4 

7CE8i45 20 41 56 45 43 OD 4Ci41 

7CF0> 41 20 44 49 53 43 52 45>87 

7CFBi54 49 4F 4E 20 51 55 27i9B 

7D00» 45 58 49 47 45 20 56 4FiB4 

7D08i54 52 45 20 4D 49 53 53iCC 

7D10s 49 4F 4E 2E 00 56 4F 55s 9B 

7D18j 53 20 56 4F 55 53 20 45:BA 

7D20:42 4F 55 49 4C 4C 41 4EiF3 

7D28i54 45 5A 20 45 54 20 56:C7 

7D30s4F 54 52 45 20 43 52 49iE5 

7D38î OD 44 45 43 48 49 52 41 x B2 

7D40i4E 54 20 56 4F 55 53 20«EC 

7D48i45 53 54 20 46 41 54 41 » ED 

7D50i4C 21 OD 00 4C 41 20 56:4A 

7058141 49 53 45 4C 4C 45 20»F4 

7060:56 4F 55 53 20 54 4F 4D:3A 

7D68:42 45 20 44 45 53 53 55:10 

7070:53 2E 2E 2E OD 56 4F 55:D1 

7D78:53 20 45 54 45 53 20 54:0D 

7D80:52 4F 50 20 4D 41. 4C 41:29 

7D88:44 52 4F 49 54 20 21 0D:D5 

7D90:00 27 2D 45 4E 54 52 45:DF 

7D98:5A 20 56 4F 54 52 45 20:3F 

7DA0:43 41 52 54 45 20 4D 41:3A 

7DA8:47 4E 45 54 49 51 55 45:87 

7DB0:2D 27 OD 00 56 4F 55 53:DB 

7DB8:20 43 4F 55 50 45 5A 20:4B 

7DC0:55 4E 20 46 41 49 53 43:66 

7DC8:45 41 55 20 49 4E 46 52:6F 

7DD0:41 2D 52 4F 55 47 45 0D:4A 

7DD8:45 54 20 55 4E 45 20 4D:63 

7DE0:49 54 52 41 49 4C 4C 45:B3 

7DE8:54 54 45 20 56 4F 55 53:BF 

7DF0:20 52 45 50 41 4E 44 20:67 

7DFB:44 41 4E 53 OD 54 4F 55:A0 

7E00:54 45 20 4C 41 20 50 49:7D 

7E08:45 43 45 2E 50 41 55 56:BD 

7E10:52 45 20 46 45 4D 4D 45:AF 

7E18:20 44 45 20 4D 45 4E 41:80 

7E20:47 45 21 OD 00 56 4F 55:52 

7E28J 53 20 44 45 43 4F 55 56:DF 

7E30:52 45 5A 20 55 4E 20 45:C7 

7E38:4C 45 56 41 47 45 20 44:CE 

7E40:45 20 4D 59 47 41 4C 4C:E9 

7E48:45 53 3A 45 4C 4C 45 53:0D 

7E50:20 56 4F 55 53 20 54 52:01 

7E58:4F 55 56 45 4E 54 20 41:18 

7E60:20 4C 45 55 52 20 47 4F:EC 

7E68:55 54 2E 2E 2E OD 00 55:7B 

7E70:4E 45 20 54 52 41 50 45:1D 

7E78:20 56 4F 55 53 20 50 52:25 

7E80:45 43 49 50 49 54 45 20:21 

7E88:44 41 4E 53 20 4C 45 ODjEA 

7E90:56 49 44 45 20 28 41 49:00 

7E98:45 2D 41 49 45 2D 41 49:0E 

60 


7EA0:45 21 29 OD 00 56 4F 55:B4 
7EA8:53 20 4E 27 41 50 50 52:41 
7EB0:45 4E 45 5A 20 52 49 45:60 
7EB8:4E 20 44 27 49 4E 54 45:3F 
7EC0:52 45 53 53 41 4E 54 2E:8C 
7EC8:OD 00 4C 41 20 50 4F 52:Fl 
7ED0:54 45 20 53 45 20 52 45:56 
7ED8:46 45 52 4D 45 20 44 45:6E 
7EE0:52 52 49 45 52 45 20 56:9D 
7EE8:4F 55 53 2E OD 00 27 2D:EC 
7EF0:49 4E 53 45 52 45 5A 20:AE 
7EF8: 55 4E 45 20 44 49 53 51 : AF 
7F00:55 45 54 54 45 20 5F 8F:14 
7F08:27 OD 00 56 4F 55 53 20:28 
7F10:45 54 45 53 20 44 41 4E:B3 
7F18:53 20 4C 27 4F 42 53 43:A4 
7F20:55 52 49 54 45 20 54 4F:EB 
7F28:54 41 4C 45 2E OD 00 56:5E 
7F30:4F 55 53 20 56 4F 55 53:13 
7F38:20 50 4C 41 4E 54 45 5A:F5 
7F40:20 44 41 4E 53 20 4C 45:B6 
7F48:20 4E 4F 49 52 3A OD 56:BC 
7F50:4F 54 52 45 20 42 4F 55:0F 
7F58:43 41 4E 53 20 44 4F 4E:FD 
7F60:4E 45 20 4C 27 41 4C 41:D3 
7F68:52 4D 45 21 OD 00 41 56:90 
7F70:45 43 20 56 4F 53 20 4D:FC 
7F78:41 49 4E 53 20 4D 4F 55:33 
7F80:49 4C 4C 45 45 53 20 56:33 
7F88: 4F 55 53 OD 56 4F 55 53:58 
7F90:20 45 4C 45 43 54 52 4F:3D 
7F98:43 55 54 45 5A 2E OD 00:DD 
7FA0:4C 41 20 50 4F 52 54 45:56 
7FA8:20 45 53 54 20 56 45 52:40 



7FB0:4F 55 49 4C 4C 45 45 2E:6C 
7FB8:2E 2E OD 00 27 41 2E 2E:64 
7FC0:2E 42 4F 49 52 45 2E 2E:3A 
7FC8:2E 53 56 50 2E 2E 2E 41:39 
7FD0:48 48 48 48 2E 2E 2E 27:20 
7FD8:OD 00 27 4D 45 52 43 49:FB 
7FE0:2E 2E 2E 4C 45 20 43 4F:2C 
7FE8:44 45 2E 2E 2E 4C 41 42:49 
7FF0:4F 52 41 54 4F 49 52 45:D4 
7FF8:3A OD 00 41 20 42 4F 55:05 
8000:54 20 44 45 20 46 4F 52:84 
8008:43 45 53 2C 49 4C 20 52:96 
8010:45 4E 44 20 4C 27 41 4D:88 
8018:45 2E OD 00 27 2D 43 4F:FE 
8020:44 45 20 44 27 41 43 43:7B 
8028:45 53 20 41 55 20 4C 41 : A3 
8030:42 4F 52 41 54 4F 49 52:12 


8038:45 3A 27 OD 00 27 43 4F:24 
8040:44 45 20 49 4E 56 41 4C:E3 
8048:49 44 45 2D 41 4C 45 52:EB 
8050:54 45 21 2D 41 4C 45 52:DB 
8058:54 45 21 2D 2E 2E 27 0D:4F 
8060:00 54 52 4F 55 56 45 5Ai1F 
8068:20 4C 45 20 43 4F 44 45:D4 
8070:20 28 31 2D 31 30 30 20:47 
8078:2F 20 36 20 45 53 53 41 :C9 
8080:49 53 29 3A OD 00 4C 45:9D 
8088:20 53 59 53 54 45 4D 45:52 
8090:20 44 45 20 50 52 4F 54:1E 
8098:45 43 54 49 4F 4E 20 44x 3E 
80A0:55 20 43 4F 46 46 52 45:4A 
80A8:OD 53 27 45 4E 43 4C 45:16 
8080:4E 43 48 45 3A 55 4E 20:4B 
80B8:47 41 5A 20 41 53 50 48:66 
90C0:59 58 49 41 4E 54 20 53:90 
80C8:45 OD 52 45 50 41 4E 44:54 
80D0:2E 2E 2E OD 00 56 4F 55:E1 
80D8:53 20 45 54 45 53 20 55:71 
SOEO:4E 20 50 45 55 20 4C 4F:73 
80E8:4E 47 20 41 20 4C 41 20:2B 
80F0:52 45 46 4C 45 58 49 4F:CE 
80F8:4E 20 20 43 45 20 51 55:54 
8100:49 20 50 52 4F 56 4F SIf DI 
8108:55 45 20 4C 27 41 4C 41:84 
8110:52 4D 45 2E 2E 2E OD 00:0C 
8118:42 52 41 56 4F 20 21 20:74 
8120:4C 45 20 43 48 45 4D 49:B8 
8128x4E 20 45 53 54 20 4C 49:B8 
8130:42 52 45 2E 2E 2E OD 00:21 
8138:54 52 4F 50 20 50 45 54:07 
8140:49 54 2E 2E 2E OD 00 54:49 
8148:52 4F 50 20 47 52 41 4E:02 
8150:44 2E 2E 2E OD 00 27 42:15 
8158:4F 55 54 4F 4E 20 50 4F:2D 
8160:55 52 20 41 43 43 45 44:F8 
8168:45 52 20 41 55 20 47 41 : DE 
8170:52 41 47 45 3A OD 00 27:7E 
8178:41 54 54 45 4E 54 49 4F:61 
8180:4E 3A ?0 43 45 54 54 45:1E 
8188:20 42 4F 4D 42 45 20 45:F3 
8190:58 50 45 52 49 4D 45 4E:79 
8198:54 41 4C 45 20 20 45 58:IC 
81 AO:50 4C 4F 53 45 20 41 50:55 
81A8:52 45 53 20 34 35 73 2E:3D 
81BO:27 OD 00 4C 45 53 20 43:AC 
81B8:4F 42 52 41 53 20 56 4F:75 
01 CO : 55 53 20 53 41 55 54 45:8B 
81C8> 4E 54 20 41 20 4C 41 20:19 
81 DO: 47 4F 52 47 45 20 21 0D:13 
81D8:00 4C 45 53 20 43 4F 42:31 
81EO:52 41 53 20 52 45 4E 54:A0 
81E8:52 45 4E 54 20 44 41 4E:95 
81 FO:53 20 4C 45 55 52 20 50:8C 
81F8:4l 4E 49 45 52 ?E OD 00:23 
0200:51 55 45 4C 20 42 4F 55:BF 
8208:54 4F 4E 20 3F 20 28 31:53 
8210:2D 35 29 OD 00 56 4F 55:24 
8218:53 20 56 4F 55 53 20 45:BF 
8220:54 45 53 20 54 52 4F 4D:F0 
8220:50 45 21 20 4C 27 41 4C:80 
8230:41 52 4D 45 20 45 53 54:E3 
8238:OD 44 4F 4E 4E 45 45 2E:AE 
8240:44 4F 4D 4D 41 47 45 2E:EA 
8248:2E 2E OD 00 11 OD OB 56:B2 
8250:4F 54 52 45 20 54 45 4D:12 
8258:50 53 20 45 53 54 20 45:EE 
8260:43 4F 55 4C 45 2E 2E 2E:E4 
8268:OD 00 4C 41 20 42 4F 4D:82 
8270:42 45 20 4D 45 54 20 55:F4 
8278:4E 20 54 45 52 4D 45 20:05 
8280:45 58 50 4C 4F 53 49 46:6C 
8288:20 41 20 56 4F 54 52 45: IB 
8290: OD 4D 4* 53 53 49 4F 4E:41 
8298:2E 2E 2E OD 00 56 4F 55:AB 
82A0:53 20 4E 27 41 56 45 5A:40 
82A8:20 50 41 53 20 45 54 45:2C 
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A410s Oî 

FE 

FF 

CD 

E6 

9D 

3E 

01:41 

A4 18132 

76 

A6 

11 

96 

00 

21 

9C:6E 

A420:00 

01 

02 

00 

CD 

E6 

9D 

11:28 

A428 j 2C 

01 

21 

9C 

00 

01 

02 

00: B9 

A430: CD 

E6 

9D 

11 

EO 

00 

21 

DC: 12 

A438i00 

01 

FE 

FF 

CD 

E6 

9D 

111 3B 

A 4 4 0 : B 4 

00 

21 

AO 

00 

01 

02 

00: 5C 

A4 4 81 CD 

E6 

9D 

1 1 

OC 

01 

21 

AO: IB 

A450: 00 

01 

02 

00 

CD 

E6 

9D 

3E : 85 

A458i02 

32 

76 

A6 

11 

C8 

00 

21:46 

A460iA2 

00 

01 

02 

00 

CD 

E6 

9D:F9 

A468»11 

FO 

00 

21 

A2 

00 

01 

02: D3 

A470:00 

CD 

E6 

9D 

C9 

04 

01 

1E: 50 

A478s 01 

DF 

1E 

04 

3F 

4D 

01 

3F: EA 

A480i71 

01 

57 

71 

01 

57 

4D 

01:04 

A 4 8 813 F 

4D 

04 

89 

71 

01 

A2 

71 : CA 

A490i01 

A2 

4D 

01 

89 

4D 

01 

89:85 

A 4 9 81 7 1 

04 

59 

4D 

01 

59 

71 

01:23 

A4A0i87 

71 

01 

87 

4D 

01 

59 

4D:B8 

A4A8i04 

SC 

50 

01 

5C 

6 E 

01 

6 F: 37 

A4 BOi6E 

01 

6 F 

50 

01 

5C 

50 

04:33 

A4B8i71 

50 

01 

71 

6 E 

01 

84 

6 E: FO 

A4 CO s 01 

84 

50 

01 

71 

50 

04 

57:56 


A4C8:64 

01 

59 

64 

04 

57 

63 

01: 4D 

A4D0:59 

63 

04 

57 

56 

01 

59 

56:91 

A4D8:04 

57 

55 

01 

59 

55 

04 

87:66 

A4E0: 64 

01 

89 

64 

04 

87 

63 

01 : C5 

A4E8:89 

63 

04 

87 

56 

01 

89 

56:39 

A 4 F 0: 0 4 

87 

55 

01 

89 

55 

FF 

3E: 90 

A4F8:01 

32 

76 

A6 

11 

18 

01 

21:36 

A500:52 

00 

01 

02 

00 

CD 

E6 

9D:4A 

A508:Il 

60 

01 

21 

62 

00 

01 

FEiAl 

A510:FF 

CD 

E6 

9D 

11 

7A 

01 

21 : B1 

A318: 22 

00 

01 

02 

00 

CD 

E6 

9Di 32 

A 5 2 0: 1 1 

OC 

01 

21 

2A 

00 

01 

02:31 

A528:00 

CD 

E6 

9D 

11 

08 

01 

21:58 

A530:54 

00 

01 

FE 

FF 

CD 

E6 

9D: 77 

A538:3E 

02 

32 

76 

A6 

06 

06 

48: BF 

A540: CD 

32 

BC 

11 

4A 

01 

21 

58:75 

A548:00 

01 

FE 

FF 

CD 

E6 

9D 

11: 4C 

A550:3E 

01 

21 

3E 

00 

01 

02 

00:96 

A558:CD 

E6 

9D 

11 

02 

00 

21 

16:97 

A560:00 

01 

02 

00 

CD 

E6 

9 D 

11:69 

A568:02 

00 

21 

02 

01 

01 

FE 

FF: 31 

A570: CD 

E6 

9D 

1 1 

BC 

01 

21 

50: A4 

A578:00 

01 

02 

00 

CD 

E6 

9D 

11:81 

A580:BC 

01 

21 

16 

00 

01 

02 

00: IC 

A588 j CD 

E6 

9D 

1 1 

BC 

01 

21 

00: 6C 

A590:01 

01 

FE 

FF 

CD 

E6 

9D 

11:95 

A598:8C 

00 

21 

52 

00 

01 

02 

00:3F 

A 5 A0 : CD 

E6 

9D 

11 

FC 

00 

21 

64:27 

A5A8:00 

01 

02 

00 

CD 

E6 

9D 

11 : B1 

A 5 B 0: 56 

01 

21 

64 

00 

01 

02 

00:34 

A5B8:CD 

E6 

9D 

l 1 

FC 

,00 

21 

62: 3D 

A5C0:00 

01 

FE 

FF 

CD 

E6 

9D 

C9:7C 

A5C8:AF 

32 

76 

A6 

06 

OE 

48 

CD: 93 

A5D0:32 

BC 

01 

EB 

A5 

CD 

71 

9C: CE 


A5D8:11 

8 E 

00 

21 

58 

00 

01 

FE : 94 

A5E0:FF 

CD 

E6 

9 D 

01 

34 

A6 

CD: 7C 

A5E8:71 

9C 

C9 

04 

19 

00 

01 

19: 9A 

A5F0:28 

01 

46 

2D 

01 

55 

55 

011 DD 

A5F8:82 

55 

04 

46 

00 

01 

46 

2D: 32 

A600:01 

82 

2D 

04 

45 

2D 

01 

54:21 

A608:57 

01 

82 

57 

04 

3C 

00 

01:20 

A610:37 

03 

01 

1E 

03 

01 

1E 

05:36 

A618i01 

3 7 

05 

01 

46 

00 

04 

46: 8C 

A 6 2 0: 2 D 

01 

50 

32 

04 

4E 

37 

01:00 

A628: 52 

2D 

04 

82 

00 

01 

82 

64 : BA 

A 6 3 0: 01 

EO 

64 

FF 

04 

73 

28 

01 : BA 

A638:7D 

28 

FF 

00 

00 

00 

00 

00:82 



NUCLEAR ALERT (suit-»ri*L l«. g».32) 

635 MOVE PEEK(z)*4,PEEK(z+l)«2,PEEK C33403 
<z +2) sDRAWR 0,-PEEK<2+3)»2sz=z+4 

636 IF PEEK12 ï < >255 THEN 635 [1507] 

637 z = z + l [702] 

638 MOVE PEEK(z)»4,PEEK(z+l)*2,PEEK [3970] 
(2+2)!DRAWR -PEEK(z+3)*4,0s2=z+4 

639 IP PEEK12 ï < >255 THEN 638 ELSE Z [1883] 
=2 + 1 

640 PLOT PEEK<z)*4,PEEK(z+l)*2,PEEK [3409] 
(2+2)12=2+3 


641 IF PEEK(z)<>255 THEN 640 [1530] 

642 DATA 0,6,26,26,24,26,26,2,2,2,2 [1464] 
26 2226 

643’pL0t"Î20,202,2iDRAW 184,202 [1527] 

644 PLOT 456,284,5iDRAW 536,284 [1916] 

645 FOR y=114 TO 102 STEP -6s FOR x = [ 1656] 

132 TO 172 STEP 8 

646 PLOT x,y,3iPLOTR 0,-2 [1231] 

647 NEXT x,y [548] 


648 FOR x=192 TO 236 STEP 4iPL0T 26 [3128] 
8,x,11iPLOT 288,x,11iNEXT 

649 FOR x = 194 TO 234 STEP 4 s PLOT 27 [1950] 
2,X,111 PLOT 284,x1NEXT 

650 x=65iIF (ecan+ebar)<=2*x THEN I [3079] 


NK 2,6,24 

651 IF cuve<x THEN INK 10,6,24 [1751] 

652 IF poipl<x THEN INK 9,6,24 [1805] 

653 IF pmp2<x THEN INK 14,9,24 [1322] 

654 IF cirl<x THEN INK 7,6,24 [1068] 

655 IF cir2<x THEN INK 8,9,24 [1329] 

656 IF tuyvap<x THEN INK 11,24,13 [1644] 

657 IF gene<x THEN INK 12,6,24 [1667] 


658 IF (pres+rxi et I <2*x THEN INK 1 [2493] 
3,6,24 
66 


659 IF prot<x THEN INK 15,11,26 [1306] 

660 IF prot<(X/2J THEN INK 4,26,11 [1611] 

661 IF econd<x THEN INK 6,9,24 [997] 

662 IF mw>=30 THEN INK 3,6,24 [1593] 

663 IF mw>=120 THEN INK 1,24,6 [837] 

664 IF mw>9999 THEN 667 176,63 

665 PEN 5sx*=DEC*(*m,"###«")sF0R x= [4645] 


1 TO 4! IF MID*(x*,x,l)=" “ THEN MID 
*(x*,x)="0" 

666 NEXT xsLOCATE 4,6:PEN SsPRINT x [4354] 
tsLOCATE 5,7î PRINT “MW" 

667 SOUND 129,100,-1,15,2s WHILE INK [3434] 

EYt<>"’:WENDiWHILE ... 


668 PEN IsRETURN [1269] 

669 ’ [117] 

670 ’ Routine d'initialisation [1468] 

671 ' [117] 


672 DEF INT A-XsRANDOMIZE T IME : DIM o [2951] 
uv(7),ouv*<7) 

673 GOSUB 674:ENV 1,15,-1,3:ENV 2,1 [6256] 
5,-1,2,15,1,2:ENT -1,100,2,1,100,-2 

,1 sENT -2,5,2,1,5,-2,1 :ENT -3,45,-1 
,1 !GOSUB 617 

674 LOCATE 1,25sFOR x = l TO 26:PRINT [6348] 
CHRi(10); :NEXT:MODE 1 s INK 0,0:INK 

1,26s INK 2,18s INK 3,26,13:BORDER Os 
SPEED INK 10,10 

675 WHILE INKEY4<>””sWENDsRETURN [2193] 

676 FOR k=l TO 9sS0UND 2,716,1,15:S [2825] 
OUND 2,142,1, ISsNEXT k:RETURN 

677 SOUND 1,45,-1,15,1,2t RETURN [1982] 

678 FOR k=l TO xsSOUND 1,300,100,15 [4032] 
,,3:SOUND 2,302,100,15,,3sNEXT ks RE 

TURN 

679 SOUND 129,200,75,15,,2sB0RDER 6 [6184] 
sFOR K=1 TO tOsCALL !<BD19sNEXT:BORD 

ER OsRETURN 
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texte comptabilité, etc „ 4.1/w^/wf w 

L’informatique de loisirs méritait bien son salon 
Après le succès du 1 er Festival de la Micro 
ne manquez pas sa seconde édition. 

Du vendredi matin au dimanche soir : le week-end le plus long, le plus vivant, 
le plus fou, de la micro-informatique grand public. Les machines, 
les logiciels, périphénques, les livres... et même les consoles 
de jeux (nouvelle génération !) 

Pour tout voir, tout comparer, choisir, et pourquoi pas, acheter. Avec, en prime, 
des animations d'enfer ! 














